delphi - 如何获取动态创建的计时器标签

Question

如何在处理其到期的函数中获取动态创建的计时器标签？

procedure TMainForm.TimerExpired(Sender: TObject);
begin
   // how do I get the tag here?

谁是Sender？主要形式？

Answer 1

Sender 是指向您的计时器对象的指针，它调用此事件处理程序。

TTimer(Sender).Tag计时器的标记值也是如此。