var
MouseXY: TPoint;
begin
GetCursorPos(MouseXY);
MouseXY := ScreenToClient(MouseXY);
Showmessage(IntToStr(MouseXY.X) + ',' + IntToStr(MouseXY.Y))
end;
Delphi 屏幕坐标转换窗口坐标
本文档介绍了如何使用Delphi获取鼠标当前位置,通过ScreenToClient函数将屏幕坐标转换为客户端坐标,并显示具体坐标值(X,Y)。适合了解基本GUI编程的读者。
455

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



