delphi - 在 aControl 内部调用 aControl.free

Question

阅读后this我想知道下面的代码有什么问题:

procedure TForm1.Button5Click(Sender: TObject);
begin
  Button5.free;
end;

Answer 1

在该例程上放置一个断点并检查调用堆栈。从事件处理程序返回后，Button5 中的代码仍然在运行，并且其他 VCL 代码预计 Button5 仍然存在。如果您从其下方删除该对象，则很可能最终会损坏内存或以某种方式引发异常。

如果您想这样做，正确的方法是调用 PostMessage 并向表单发送一条消息，该消息最终将在当前代码运行完成后安全地释放对象。