拖动tRectangle时将鼠标光标移至控件中心失效，求技术解决方案

1. 先修正代码里的低级错误 #

你的代码存在两个致命问题，直接导致光标位置未发生变化：

• 直接使用Width和Height会引用当前类的尺寸，而非目标控件aTargetControl的尺寸，必须明确指定为aTargetControl.Width和aTargetControl.Height；
• LocalToScreen的参数写法存在语法错误，括号不匹配，需要用PointF包装坐标点。

修正后的代码如下：

procedure SetMouseCursorPosToCenter(const aTargetControl: tRectangle);
var 
  MouseCursorPos: tPointF;
  CenterPoint: tPointF;
begin
  // 计算目标控件的本地中心点坐标
  CenterPoint.X := aTargetControl.Left + aTargetControl.Width / 2;
  CenterPoint.Y := aTargetControl.Top + aTargetControl.Height / 2;
  // 转换为屏幕坐标
  MouseCursorPos := aTargetControl.LocalToScreen(CenterPoint);
  // 设置光标位置
  SetCursorPos(Round(MouseCursorPos.X), Round(MouseCursorPos.Y));
end;

2. 适配10倍移动的逻辑 #

由于你设置了“鼠标每移动1像素，控件移动10像素”，直接设置光标到控件中心会导致光标与控件的相对位置持续偏移，需要在拖动事件中同步调整光标位置，并修正记录的鼠标起始点。

假设拖动逻辑在OnMouseMove事件中，参考示例代码：

// 先在窗体类中添加成员变量：FLastMousePos: tPointF;
procedure TForm1.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = mbLeft then
    FLastMousePos := PointF(X, Y);
end;

procedure TForm1.Rectangle1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
  DeltaX, DeltaY: Single;
  ScreenCursorPos: TPoint;
begin
  if ssLeft in Shift then
  begin
    // 计算鼠标移动增量，控件移动10倍该增量
    DeltaX := X - FLastMousePos.X;
    DeltaY := Y - FLastMousePos.Y;
    (Sender as tRectangle).Left := (Sender as tRectangle).Left + DeltaX * 10;
    (Sender as tRectangle).Top := (Sender as tRectangle).Top + DeltaY * 10;
    
    // 将光标移至控件中心
    SetMouseCursorPosToCenter(Sender as tRectangle);
    // 更新鼠标起始点为当前光标位置（转换为控件本地坐标）
    GetCursorPos(ScreenCursorPos);
    FLastMousePos := (Sender as tRectangle).ScreenToLocal(PointF(ScreenCursorPos.X, ScreenCursorPos.Y));
  end;
end;

3. 额外注意事项 #

• 部分控件库或系统的拖动机制会拦截SetCursorPos操作，可尝试在调用前添加Application.ProcessMessages;，确保消息及时处理；
• 检查是否有其他后续代码修改了光标位置，导致你的设置被覆盖。

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