TMethod的妙用:解决动态创建的组件的事件赋值问题 by LYSoft LiuYang

program Test;

uses
Windows,
SysUtils,
ExtCtrls,
Classes,
Forms;

var
timer1:TTimer; Method:TMethod;

procedure Timer1Timer(Sender: TObject);
begin
MessageBox(0, 'aa', 'bb', 0);
end;

begin
timer1:=TTimer.Create(nil);
timer1.Interval:=3000;
Method.Data := nil;
Method.Code := @Timer1Timer;
timer1.OnTimer:= TNotifyEvent(Method);
while True do Application.ProcessMessages;
end.

http://lysoft.7u7.net