|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
28.11.2012, 16:04
|
|||
|
|||
Удаление класса из самого себя
DELETED MESSAGE
Последний раз редактировалось cmepthuk, 19.07.2016 в 19:12. |
|
#2
28.11.2012, 16:11
|
||||
|
||||
Архитектуру приложения следует пересмотреть и не придется вызывать деструктор из самого себя.
|
|
#3
28.11.2012, 16:24
|
|||
|
|||
|
DELETED MESSAGE
Последний раз редактировалось cmepthuk, 19.07.2016 в 19:12. |
|
#4
28.11.2012, 16:32
|
||||
|
||||
|
Попробуй сделать так:
Код:
procedure TFieldFigure.DeleteButtonClick(Sender: TObject);
begin
DeleteButton.OnClick:=nil;
Destroy; {!!!!!!!!!!}
end;хотя это все равно изврат  |
|
#5
28.11.2012, 16:38
|
|||
|
|||
|
DELETED MESSAGE
Последний раз редактировалось cmepthuk, 19.07.2016 в 19:12. |
|
#6
28.11.2012, 16:46
|
||||
|
||||
|
И вызывай не Destroy, а Free. Destroy вообще вызывать нельзя.
|
Комбинированный вид
