Ошибка при удалении кнопки из ее события

[NTFS]

День добрый.

Нашел, ИМХО, баг (ИМХО, потому что сравниваю поведение Lazarus и Delphi).

Создаем пустую форму. Кидаем на нее кнопку Button1.

Создаем обработчик:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Free ;
end;


При щелчке на эту кнопку во время работы программы, она вылетает с проклятым SIGSEGV.

В Delphi аналогичный код работает без запинки.

[minoshi]

уже обсуждали здесь

Не работает ?

Добавлено спустя 52 секунды:
Тонкость в том, что не Button1Click, а Button1MouseUp

[Mr.Smart]

А что вы хотели получить?
Вы удаляете сам объект, который вызывает событие. Ведь после удаления необходимо вернуться по стеку назад в объект.

[NTFS]

minoshi - конечно, я так и сделал, через временный таймер. Но это костыль.
Mr.Smart - в Delphi это работает, отлично работает.

[Mr.Smart]

NTFS управление памятью в FPC отличается от Delphi.
И это никак не баг FPC ИМХО.

[NTFS]

Полагаю, что это особенности реализации LCL под Windows. На самом деле, баг некритичный и легко обходится.

[Максим]

NTFS

К слову о Delphi.

Откуда нижеприведённая цитата взята догадаться с трёх раз сумеете?

Warning: Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains. For example, do not free a button or the form that owns the button in its OnClick event handler.

[NTFS]

Цитата-то к месту, но по моему скромному разумению, события должны вызываться из слоя НАД компонентами. Иначе возникает реальная опасность конкретных падений программы. И опять же, в Delphi это работает.

В общем, я понял - для подобных задач лучше чистый WinAPI или дополнительный слой обработки событий.

[.wOvAN]

Дельфи как и лазарус после события Клик вызывают событие МышиКнопкаВверх. Но дельфи умудряется исполнить обработчик МКВ даже после уничтожения самого объекта кнопки в событии Клик. Вот такие пироги.

Даже не знаю правильно это или нет исполнять обработчик несуществующего объекта.

[NTFS]

Что мешает просто исправить LCL, чтобы после удаления объекта прекращать его дальнейшие события?

[Mr.Smart]

NTFS здравый смысл!

[AlexVinS]

Что мешает просто исправить LCL, чтобы после удаления объекта прекращать его дальнейшие события?

Могу только пожелать удачи в таком начинании. Не все так просто, особенно если решать задачу в общем виде

[Максим]

И опять же, в Delphi это работает.

Хочется приключений? Ну что ж, желаю удачи.

[Inferno]

Я делаю так в FPC. Работает и в linux и в windows:

Код: Выделить всё


type

  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    procedure FreeObject(Data: PtrInt);
  public
    { public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
    Application.QueueAsyncCall(@FreeObject,PtrInt(Button1));
end;

procedure TForm1.FreeObject(Data: PtrInt);
begin
  TObject(Data).Free;
end;