在Delphi中使用IdleHandler设置固定FPS及解决FPS统计异常问题

首先，咱们来拆解你遇到的问题核心：固定帧率模式下，帧率统计逻辑完全依赖渲染耗时（DrawTime）来累加时间，但大部分Idle循环里根本没执行Render，导致TimeCount永远涨不到1000ms，自然无法更新显示的Frames值。而无上限模式下每次Idle都渲染，DrawTime每次都有贡献，所以统计正常。

再看你代码里的细节错误：

1. 固定帧率模式下，StartTime和PrevTime都是调用GetTickCount()的瞬间值（因为Render执行极快），所以DrawTime必然是0，进一步让TimeCount无法增长。
2. 你把渲染耗时当成了时间流逝量来统计，这是逻辑混淆——帧率统计需要的是「总时间流逝」，而不是「总渲染花费的时间」。

下面是修正后的完整实现，我用TStopWatch来保证时间精度（比GetTickCount靠谱多了），同时重构了时间统计和帧率控制的逻辑：

第一步：调整变量定义 #

先在Form的私有字段里定义这些变量（替换你原来的变量）：

private
  FStopWatch: TStopWatch;
  FPrevRenderTime: Int64;   // 上次开始渲染的时间（毫秒）
  FLastTime: Int64;         // 上次更新时间统计的时间（毫秒）
  FFrameCount: Integer;     // 累计帧数
  FTimeCount: Int64;        // 累计流逝时间（毫秒）
  FFrames: Integer;         // 用于显示的当前帧率
  FFPS: Integer;            // 设置的目标帧率，0为无上限

第二步：初始化计时器 #

在Form的OnCreate事件里初始化TStopWatch：

procedure TFoMain.FormCreate(Sender: TObject);
begin
  FStopWatch := TStopWatch.Create;
  FStopWatch.Start;
  FPrevRenderTime := FStopWatch.ElapsedMilliseconds;
  FLastTime := FPrevRenderTime;
end;

第三步：重构IdleHandler逻辑 #

这是核心修复部分，重点是不管是否渲染，都要累加每次Idle循环的时间流逝量，同时正确控制固定帧率的渲染时机：

procedure TFoMain.IdleHandler(Sender: TObject; var Done: Boolean);
var
  CurrentTime: Int64;
  DeltaTime: Int64;
  FrameInterval: Int64;
begin
  CurrentTime := FStopWatch.ElapsedMilliseconds;
  
  // 1. 计算本次Idle流逝的时间，累加到统计时间（关键！）
  DeltaTime := CurrentTime - FLastTime;
  Inc(FTimeCount, DeltaTime);
  FLastTime := CurrentTime;

  // 2. 处理帧率控制逻辑
  if FFPS <> 0 then
  begin
    FrameInterval := Round(1000 / FFPS);
    // 检查是否到达下次渲染的时间点
    if (CurrentTime - FPrevRenderTime >= FrameInterval) then
    begin
      Render();
      Inc(FFrameCount);
      // 更新上次渲染时间，这里用CurrentTime即可，也可以用FPrevRenderTime + FrameInterval来减少累积误差
      FPrevRenderTime := CurrentTime;
    end;
  end
  else
  begin
    // 无上限模式：每次Idle都渲染
    Render();
    Inc(FFrameCount);
  end;

  // 3. 更新显示的帧率
  if FTimeCount >= 1000 then
  begin
    FFrames := FFrameCount;
    // 保留剩余时间，避免统计误差累积
    FTimeCount := FTimeCount - 1000;
    FFrameCount := 0;
    // 这里可以把FFrames显示到UI上，比如：
    // lblFPS.Caption := Format('当前帧率: %d', [FFrames]);
  end;

  Done := False;
end;

关键修复点说明 #

1. 时间统计逻辑修正：不再依赖渲染耗时，而是每次Idle都计算从上次Idle到现在的时间差（DeltaTime），累加到FTimeCount——这样不管是否渲染，时间都会正常流逝，每秒都会触发一次帧率更新。
2. 固定帧率控制优化：用CurrentTime - FPrevRenderTime判断是否到了渲染时机，避免了原代码中StartTime和PrevTime几乎相等的问题。
3. 精度提升：TStopWatch使用系统高精度计时器，比GetTickCount的10-16ms分辨率更准确，适合帧率统计和时间控制。

另外，如果你想更精确地控制固定帧率（比如避免累积延迟），可以把FPrevRenderTime := CurrentTime改成FPrevRenderTime := FPrevRenderTime + FrameInterval，这样即使某次渲染延迟了，下次渲染会自动追赶时间点，保持帧率稳定。

内容的提问来源于stack exchange，提问作者Phil