Попробуй сделать так:
Код:
procedure TFieldFigure.DeleteButtonClick(Sender: TObject);
begin
DeleteButton.OnClick:=nil;
Destroy; {!!!!!!!!!!}
end;
хотя это все равно изврат
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.
Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
|