无法释放调用方组件

Question

当我单击组件时，我正在尝试释放它。因此，我编写了我能想到的最简单的代码来实现这一点：一个释放其发送者的过程。但是在 Delphi 7 上(在 Delphi XE 10 上试用并且没有错误(，它有时会随机抛出访问违规或抽象错误。复制此内容的最简单方法是插入 30 个按钮，并使用下面的代码分配一个 onclick 过程，然后单击它们。

我已经尝试了下面的两个代码，都在点击时：

procedure FreeMe(Sender: TObject);
begin
    TButton(Sender).Free;
end;

或

procedure FreeMe(Sender: TObject);
begin
    (Sender as TButton).Free;
end;

Answer 1

您需要

将释放延迟到按钮的OnClick事件助手完全退出之后。 重要的是，当被释放的对象处于空闲状态并且不在处理任何内容的过程中时，就会发生释放。

一种方法是使用 PostMessage() ，例如：

var
  MyReleaseWnd: HWND;
procedure TMyMainForm.FormCreate(Sender: TObject);
begin
  MyReleaseWnd := AllocateHWnd(MyReleaseWndProc);
end;
procedure TMyMainForm.FormDestroy(Sender: TObject);
begin
   DeallocateHWnd(MyReleaseWnd);
end;
procedure TMyMainForm.MyReleaseWndProc(var Message: TMessage);
begin
  if Message.Msg = CM_RELEASE then
    TObject(Msg.LParam).Free
  else
    Message.Result := DefWindowProc(MyReleaseWnd, Message.Msg, Message.WParam, Message.LParam);
end;
procedure DelayFreeMe(Sender: TObject);
begin
  PostMessage(MyReleaseWnd, CM_RELEASE, 0, LPARAM(Sender));
end;

或者，在 10.2 Tokyo 及更高版本中，您可以改用TThread.ForceQueue()：

procedure DelayFreeMe(Sender: TObject);
begin
  TThread.ForceQueue(nil, Sender.Free);
end;

无论哪种方式，您都可以执行以下操作：

procedure TSomeForm.ButtonClick(Sender: TObject);
begin
  DelayFreeMe(Sender);
end;