delphi 7计时器重置

Question

怎么可以重置TTimer1所以即使是ontimer触发器,计数重新启动？

问题是针对设计时命令执行运行时.

Answer 1

我想你实际上就是这个意思

var
  Timer1: TTimer;

然后,要重置计时器,请执行

Timer1.Enabled := false;
Timer1.Enabled := true;

在我的"RejbrandCommon.pas"标准库中,我实际上已经定义了

procedure RestartTimer(Timer: TTimer);
begin
  Timer.Enabled := false;
  Timer.Enabled := true;
end;

然后,每次我需要重新启动I计时器,我就这么做

RestartTimer(Timer1);

当然,如果您希望在重启之前触发OnTimer程序(例如Timer1Timer),则必须这样做

Timer1.OnTimer(Self);
Timer1.Enabled := false;
Timer1.Enabled := true;

或定义

procedure TriggerAndRestartTimer(Timer: TTimer);
begin
  Timer.OnTimer(nil);    
  Timer.Enabled := false;
  Timer.Enabled := true;
end;

(当然,最后一个程序,TriggerAndRestartTimer不是一个方法,因此没有Self.但是,很可能Timer1Timer程序不关心Sender属性,所以你可以发送任何东西,比如nil代替Self.)