Delphi中如何在窗体指定坐标位置实现鼠标点击操作

是否需要提前转换为屏幕坐标 #

不是所有实现方式都需要转屏幕坐标，完全取决于你选的模拟点击方案：

• 如果是通过给窗体/控件直接发送Windows点击消息的方式实现，不需要转换屏幕坐标，直接传入对应坐标系下的客户区相对坐标即可
• 如果是调用系统级输入API模拟真实物理鼠标点击的方式实现，必须先把窗体上的相对坐标转换为屏幕坐标，因为系统API只识别屏幕左上角为原点的全局坐标。

两种常用实现方案 #

方案1：消息模拟（无真实鼠标移动，仅触发程序内点击逻辑） #

这种方式不会移动系统的真实鼠标光标，仅让目标窗体/控件收到左键点击的消息，适合只需要触发内部点击逻辑、不希望干扰用户当前鼠标操作的场景，直接使用窗体客户区坐标即可，不需要做坐标转换。
示例代码：

// 点击当前窗体客户区内(ClientX, ClientY)位置
procedure SimulateFormLocalClick(ClickX, ClickY: Integer);
var
  clickParam: LPARAM;
begin
  clickParam := MakeLParam(ClickX, ClickY);
  // 依次发送左键按下、抬起消息，完成点击动作
  Form1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, clickParam);
  Form1.Perform(WM_LBUTTONUP, 0, clickParam);
end;

注意：这里的坐标原点是窗体客户区（去掉标题栏、外边框后的内容区域）的左上角，如果要点击窗体内的子按钮、输入框等控件，直接把控件的客户区坐标传给控件的Perform方法即可，不需要换算到窗体坐标系。

方案2：系统级真实点击（和人手点击效果完全一致） #

这种方式会真实移动鼠标光标到目标位置，触发全局鼠标事件，能兼容拖拽、依赖鼠标真实位置的逻辑，也能作用于第三方程序的窗口，这时候必须先把窗体相对坐标转成屏幕坐标。
坐标转换直接调用Delphi自带的ClientToScreen方法即可，不需要手动计算标题栏、边框的偏移量，系统会自动适配不同DPI、不同窗口样式的坐标差。
示例代码：

uses Windows;

// 真实模拟鼠标点击当前窗体客户区(ClientX, ClientY)位置
procedure SimulateFormRealClick(ClickX, ClickY: Integer);
var
  screenPoint: TPoint;
begin
  // 客户区坐标转屏幕坐标
  screenPoint := Point(ClickX, ClickY);
  screenPoint := Form1.ClientToScreen(screenPoint);

  // 移动光标到目标位置
  SetCursorPos(screenPoint.X, screenPoint.Y);
  // 模拟左键按下、抬起
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

提示：如果需要更高的系统兼容性，推荐用SendInputAPI替代老旧的mouse_event，前者是微软官方当前推荐的输入模拟接口，在高版本Windows、高DPI场景下表现更稳定。

常见注意点 #

• 不要混淆坐标系：给哪个控件发消息，坐标就用哪个控件客户区左上角为原点的相对坐标，不要直接混用窗体坐标和控件坐标
• 模拟点击第三方窗口时，消息发送方式可能被反模拟机制拦截，系统级真实点击的方案兼容性更好
• 高DPI场景下注意做好DPI适配，避免坐标计算出现偏移

内容的提问来源于stack exchange，提问作者Николай Агеев