小编Dat*_*tor的帖子

我有一个应用程序,允许我的用户打开和关闭计时器,以跟踪他们在某项任务上花费的时间.计时器运行一个时钟,用于向用户显示已用时间,就像秒表一样.

下面的代码已经按照我的想法工作了几年了.但是,当应用程序在Win 10上运行时,"时间"速率有时会在会话期间加快2或3倍.如果用户重新启动应用程序,它可能以正常速度运行.

赢得10 Delphi 10.3

procedure TfmTimeCard.btnTimerClick(Sender: TObject);
begin
  if btnTimer.Caption = 'Start &Timer' then
  begin
    btnTimer.Down := True;
    btnTimer.Caption := 'Stop &Timer';
    pnlTimer.Color := clPurple;
    btnResume.Enabled := True;
    btnAssign.Enabled := False;
    Timer1.Enabled := true;
    UpdateTimer.Enabled := True;
    ElapsedTime := ElapsedTime;
    //btnPostRecord.Enabled := False;
    btnCancel.Enabled := False;
    btnDeleteTimeCard.Enabled := False;
  end
  else
  begin
    btnTimer.Down := False;
    btnTimer.Caption := 'Start &Timer';
    pnlTimer.ParentColor := True;
    btnResume.Enabled := False;
    btnAssign.Enabled := True;
    pnlTimer.Color := clMoneyGreen;
  end;
end;

procedure TfmTimeCard.Timer1Timer(Sender: TObject);
begin
  if …