在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
回看旧时代码,以往清楚之记忆渐渐模糊,事隔多年,遗忘正在发生。 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;
测试一下,事件完美挂接: |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论