打赏
随笔 - 111,  文章 - 0,  评论 - 36,  阅读 - 29万

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

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;
复制代码

 

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

posted on   楚人无衣  阅读(506)  评论(0编辑  收藏  举报

< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示