Delphi 获取鼠标和窗体的位置方法

Delphi 版本：Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753

1、在界面上 增加一个 时钟控件

2、控件增加 事件， 内容如下

// position_timer 是我自定义的 时钟名称，同学们可以根据自己的需要变动

// TmainForm 是我自定义的 Form 名称

uses 单元请引用 Winapi.Windows

procedure TmainForm.position_timerTimer(Sender: TObject);
var
    point: TPoint;
    rt: TRect;
begin
    GetCursorPos(point);
    point := ScreenToClient(point);
    mouse_x_edit.text := inttostr(point.X);
    mouse_y_edit.text := inttostr(point.Y);
    GetWindowRect(mainWindowHWND, rt);
    window_x_edit.text := inttostr(rt.Left);
    window_y_edit.text := inttostr(rt.Top);
end;

// 说明

// GetCursorPos：Windows API函数名。该函数检取光标的位置放入 point 中，以屏幕坐标表示

// GetWindowRect：Windows API函数。该函数返回指定窗口（句柄）的边框矩形的大小放入 rt 中

// mainWindowHWND 是我指定的窗体句柄参数

// 关于 句柄的方法 我会另外写一篇 窗体句柄相关的文章

本人会不定期的更新文章内容，内容含盖 Delphi，Java，Vue等相关内容。内容都是本人原创。如果给你带来帮助，码字不易还请多多点赞！如果需要引用请标记出处，感谢之至！

笔者：小飞侠