delphi – 在由所述对象调用的事件期间销毁对象

发布时间：2020-12-15 04:33:58 所属栏目：大数据来源：网络整理

导读：我有一个按钮.它的OnClick事件调用一个破坏按钮的过程,但随后“线程”想要返回OnClick事件,我得到一个访问冲突. 我完全难过了！解决方法在完成所有代码执行后,您需要销毁该按钮.执行此操作的标准方法是将一个用户定义的消息发布到表单,并为表单提供将解释

我有一个按钮.它的OnClick事件调用一个破坏按钮的过程,但随后“线程”想要返回OnClick事件,我得到一个访问冲突.

我完全难过了！

解决方法

在完成所有代码执行后,您需要销毁该按钮.执行此操作的标准方法是将一个用户定义的消息发布到表单,并为表单提供将解释它的消息方法.例如：

unit Unit1;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;

const
  WM_KILLCONTROL = WM_USER + 1;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure KillControl(var message: TMessage); message WM_KILLCONTROL;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(self.Handle,WM_KILLCONTROL,integer(Button1))
end;

procedure TForm1.KillControl(var message: TMessage);
var
  control: TControl;
begin
  control := TObject(message.LParam) as TControl;
  assert(control.Owner = self);
  control.Free;
end;

end.

这是有效的,因为消息被放入Windows消息队列,并且直到它之前的所有内容(包括按钮当前正在响应的Click消息)完成处理后才会出现.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!