问题的来源是
因为 Application.OnMessage 中TMsg截获的Msg.pt是屏幕坐标 即Mouse.CursorPos,
我需要Msg.Handle上相应的坐标 怎么转?
因为 Application.OnMessage 中TMsg截获的Msg.pt是屏幕坐标 即Mouse.CursorPos,
我需要Msg.Handle上相应的坐标 怎么转?
解决方案 »
- delphi7 中通过sql语句显示在DBgrid中的数据竖排转横排。
- 在北京能正常开发的delphi程序员能挣多少钱?
- intraweb 发布成服务模式BDE连接出问题,高分200。。。。。
- 請看CODE......
- 关于tmscomm在用户机器上的注册问题
- 我有个帖子没人答,100分,快来,前四位每人25!
- 很不理解的问题,当Button在ScrollBox1中移动时出现错误,请高人帮帮忙啊!!!
- 怎么用SOCKET传送一个自定义类型的数据
- clientsocket的sendbuf怎么用呀?
- 找工作文凭很重要吗????
- 怎么样将DBGRID中的数据导入WORD中(形成和一样的表格)?用DBGRID还是用QUERY做呢?thanks.
- 请问如何在 Win2000下列出当前运行的所有程序的完整路径,而不仅仅是文件名?
var Handled: Boolean);
var
pt:TPoint;
begin
if Msg.hwnd=Button1.Handle then //可不要
begin
pt:=Button1.ScreenToClient(Msg.pt); //转到button
self.Caption:=inttostr(pt.X)+' '+inttostr(pt.Y);
end;
end;