请高手指导在delphiEX2中如何使用screentoclient函数

PBplusMSSQL2008R2 2012-06-13 12:17:01

ScreenToClient这个函数在EX2中似乎用法不同了，我想通过Whnd，TP来转换坐标。使用来转换屏幕中其他程序的表格坐标用的。
特别指出，是在EX2里面的使用。ScreenToClient/&/ClientToScreen
请高手指导，谢谢。

...全文

192 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

s11ss 2012-06-13

打赏
举报

回复

Windows.ScreenToClient

PBplusMSSQL2008R2 2012-06-13

打赏
举报

回复

谢谢楼上,你说的不是EX2版本的方法。不过还是要感谢你的。
我刚才找了一下,发现问题了.现在EX2改成这样了：
winapi.windows.ScreenToClient(Whnd,Tp);
心急，没注意看uses，呵呵。。给你加分，结贴！

函数说明 GetWindowRect 此函数是获取窗体或者控件在屏幕坐标系下的坐标。若此函数用于窗体初始化函数中，原点位于窗体的左上角；若此函数在窗体初始化完成之后使用，原点位于屏幕的左上角。 ScreenToClient 此函数是将屏幕坐标转化为客户区坐标。 GetClientRect 此函数是获取窗体或者控件客户区的大小，一般来说，针对窗体还是控件，其获取的Left、Top参数均为0； ClientToScreen 此函数是将客户区坐标转化为屏幕坐标 MoveWindow 针对窗体，使用屏幕坐标；

ScreenToClient　　函数功能：该函数把屏幕上指定点的屏幕坐标转换成用户坐标。　　函数原型：BOOL ScreenToClient(HWND hWnd, LPPOINT lpPoint)；　　参数：　　hWnd：指向窗口的句柄，此窗口的用户空间将被用来转换。　　lpPoint：指向POINT结构指针，该结构含有要转换的屏幕坐标。　　返回值：如果函数调用成功，返回值为非零值，否则为零。　　

ClientToScreen( )是把窗口坐标转换为屏幕坐标 ScreenToClient( )是把屏幕坐标转换为窗口坐标屏幕坐标是相对于屏幕左上角的，而窗口坐标是相对于窗口用户区左上角的 VC下，有些函数使用窗口坐标，有些使用屏幕坐标，使用时要分清。一个窗体分为两部分：系统区和客户区象标题和菜单之类的是系统区，由系统来控制，客户区就是你的地盘喽！！！

procedure TForm1.ButtonClick(Sender: TObject);
var
Rect:TRect;
lpPoint:TPoint;
begin
GetWindowRect(Button.Handle,Rect); //取得控件相对于屏幕的坐标，即屏幕坐标；
lpPoint:=Rect.TopLeft;
Windows.ScreenToClient(Form1.Handl

顾名思义：ScreenToClient也就是Screen（屏幕坐标）到 Client（客户区坐标）的转换。也就是说这个函数可以把你在屏幕上鼠标的位置转换为你打开的程序的客户区的坐标（位置）。

5,929

社区成员

262,934

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章