TMETHOD: Solve the event assignment of the dynamically created components, BY LYSOFT Liyang

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