Удаление <delete> компонентов

[Mexanik2012pro]

Всем добрый день )))

Возникла такая проблема:

> На форме расположено 4 TButton. И дан им один обработчик Click. Я хочу удалить одну из перечисленных TButton, передаю Sender кнопки, затем выводит Сообщение (что это наша кнопка), после нажимаем ОК (закрыть сообщение) и должно удалить кнопку. Но процесс удаления Кнопки не происходит. 

//На FMX Win32 данной проблемы нету ...

 

void __fastcall TForm1::Click(TObject *Sender)

{

TButton *ClickedItem = dynamic_cast<TButton*>(Sender);

ShowMessage(ClickedItem->Text);

delete ClickedItem;

ClickedItem = NULL;

}

//---------------------------------------------------------------------------

 

Пробовал на прямую удалить компонент:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

delete Button1;

Button1= NULL;

}

//---------------------------------------------------------------------------

Но результат тот же. Не реагирует на <delete>. Пробовал через Button1->Free(); Результат тоже 0!!!

 

Извиняюсь, если не корректно написал. Но все же, проверте и дайте ответ в чем же проблема.

Если данная тема была, то дайте ссылку на ответ.

Изменено 2 декабря, 2015 пользователем Mexanik2012pro

[Mexanik2012pro]

Проблему решил сам.

 

ClickedItem->DisposeOf(); //удаляет компонент

ClickedItem = NULL;