用 TMethod 解决动态创建控件后事件赋值的问题

1. 定义变量:

FlashTimer: TTimer;
Method: TMethod;

2. 声明Timer 方法: procedure ProOnTimer(Sender : TObject);

3. 定义OnTimer 方法实现:

procedure ProOnTimer(Sender: TObject);
var
i: Integer;
begin
Randomize;
for i := 0 to Length(CharArr) - 1 do
begin
CharArr[i] := Chr(Ord('A') + Random(25));
end;
end;

4. 初始化Timer 实例: 设置参数及触发事件

procedure TFrmMultiThread.FormCreate(Sender: TObject);
begin
FlashTimer := TTimer.Create(Self);
try
with FlashTimer do
begin
Interval := 200;
Enabled := True;

Method.Data := nil;
Method.Code := @ProOnTimer;

OnTimer := TNotifyEvent(Method);
end;
finally

end;

end;