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