当我在自己的 OnClick 处理程序中销毁按钮时，为什么我的程序会崩溃？

Question

我尝试了我运行的网站上的脚本 http://www.delphi-central.com/runtime.aspx 并成功。

---

private
  { Private declarations }
  procedure CustomButtonClick(Sender: TObject);

---

procedure TForm1.AddNewButtonClick(Sender: TObject);
var
  NewButton : TButton;
begin 
  NewButton := TButton.create(self);

  with NewButton do
  begin
    Top    := 30;
    Width  := 60;
    Left   := Width * (self.ControlCount-2);
    Parent := self;
    OnClick := CustomButtonClick;
    Caption := 'Button '+ inttostr (self.ControlCount-2);
  end;  //With
end;

procedure TForm1.DeleteLastButtonClick(Sender: TObject);
begin
  if Self.ControlCount>2 then
    TButton (Controls[ControlCount-1]).destroy;
end;

procedure TForm1.CustomButtonClick(Sender: TObject); 
begin    
    ShowMessage(TButton(Sender).caption + ' Pressed'); 
end;

但如果我更改 OnClick，

OnClick := CustomButtonClick; ==> OnClick := DeleteLastButtonClick;

它将生成一条错误消息。 怎么会这样……？？？

Answer 1

当然，它会爆炸——这就是当你砍断你所坐的树枝时可能发生的情况。

您无法在由该控件生成的事件处理程序内杀死该控件。

请注意，您正在使用的示例没有将 CustomButtonClick 指向删除例程！

Answer 2

事件处理程序由控件对象上的函数调用，一旦事件处理程序完成，它可能会执行更多代码。如果删除该控件，则引用该对象的任何代码都可能会引发访问冲突。

您需要做的是让您的程序在完成当前正在运行的所有代码之后删除该控件。为此，您需要发布消息。如果您不了解消息，这是一个学习的好机会。

您需要创建一个新的消息类型 ID。 WM_USER + 1 应该可以。参数之一是要删除的控件的地址。在表单上设置一个消息处理程序，用于处理该消息类型并释放消息参数中引用的控件。然后在事件处理程序中，让它将该消息 PostMessage 到您的表单。这应该可以正常工作，而不会导致访问冲突。

Answer 3

当您认为系统必须在释放鼠标按钮/按键后以某种方式重绘按钮时，很容易想到原因。由于您在单击期间已经删除了按钮对象，因此这将失败。

因此，您需要找到一种方法，在 onClick 事件处理发生并成功完成后以某种方式删除按钮。