用 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;