Delphi: TMethod转普通方法为对象方法

时间:2024-03-21 17:34:02

回看旧时代码,以往清楚之记忆渐渐模糊,事隔多年,遗忘正在发生。

TMethod方法,当初熟练再看已陌生,再做复习以作备忘。

简言之,它做为一相桥接,将普通事件或方法转换为类方法,其多用于事件动态设置中。

它定义如此:

  TMethod = record
Code, Data: Pointer;
end;

以代码示之,如下:

//此处可为procedure,亦可为function。参数也可随意设置

procedure FormOnClick(Sender: TObject);
begin
ShowMessage('click event: ' + Sender.ClassName);
end; procedure TForm1.FormCreate(Sender: TObject);
var
M: TMethod;
begin
M.Code := @FormOnClick;
M.Data := Self;
OnClick := TNotifyEvent(M);
end;

测试一下,事件完美挂接:

Delphi: TMethod转普通方法为对象方法