如何在Delphi 中的OnMouseMove事件中移动组件时减少CPU使用率？

在Delphi中，在OnMouseMove事件中移动组件时，可以使用SetTimer和KillTimer函数来减少CPU使用率。以下是一个简单的示例：

在表单的OnCreate事件中，设置一个定时器：

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTimerID := SetTimer(0, 0, 100, nil);
end;

这里，FTimerID是一个成员变量，用于存储定时器的ID，SetTimer函数的参数分别表示窗口句柄、定时器ID、时间间隔和定时器回调函数。

在表单的OnDestroy事件中，取消定时器：

procedure TForm1.FormDestroy(Sender: TObject);
begin
  KillTimer(0, FTimerID);
end;

这里，KillTimer函数的参数分别表示窗口句柄和定时器ID。

在表单的OnMouseMove事件中，判断定时器是否触发，如果触发则移动组件：

type
  TForm1 = class(TForm)
    ...
  private
    FTimerID: UINT;
    FLastMousePos: TPoint;
    procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;
    ...
  end;

...

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  FLastMousePos := Point(X, Y);
end;

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = FTimerID then
  begin
    if (FLastMousePos.X <> -1) and (FLastMousePos.Y <> -1) then
    begin
      // 移动组件
      Button1.Left := FLastMousePos.X;
      Button1.Top := FLastMousePos.Y;
      FLastMousePos := Point(-1, -1);
    end;
  end;
end;

这里，WM_TIMER是Windows消息，用于处理定时器触发的事件。FLastMousePos是一个成员变量，用于存储鼠标的位置。

通过以上方法，可以在OnMouseMove事件中移动组件时减少CPU使用率。