GetCursorpos--是个WinAPI来的
procedure TMainForm.Timer1Timer(Sender: TObject);
var
p1,p2:Tpoint;
begin
GetCursorpos(p1);//获取屏幕坐标
Label1.Caption := ' 屏幕坐标:X ' + IntToStr(P1.X) + ' Y ' + Inttostr(P1.Y);
p2:=ScreenToclient(p1);
Label2.Caption := ' 窗体坐标:X ' + IntToStr(P2.X) + ' Y ' + Inttostr(p2.Y);
end;
本文提供了一个使用Delphi通过WinAPI获取鼠标当前屏幕坐标及转换为窗体坐标的示例代码。通过定时器实时更新坐标显示。

504

被折叠的 条评论
为什么被折叠?



