当前位置:主页>销售管理软件> 列表

在webbrowser控件上点击,如何得到鼠标的X,Y坐标 找服装进销存管理

进销存软件版1楼: 在webbrowser控件上点击,如何得到鼠标的X,Y坐标?
我做的程序中有一webbrowser控件,通过它打开任一页面,我把鼠标放在上面任一位置,不管点不点击鼠标都可以得到鼠标的X,Y坐标的方法是什么???

另外一个问题就是如何控制鼠标点击左键或右键??

总结一下其实都是已经知道实现这些效果的代码,只是不知道在webbrowser控件上该放在哪个事件中。。。。

求助高手帮忙,谢谢。。在线。。。

2楼: GetCursorPos取鼠标的坐标
var
xx:tpoint;
begin
getcursorpos(xx);
label1.caption:=xx.x;
label2.caption:=xx.y;
end; 如服装进销存管理

3楼: 有onmousedown事件的控件取得坐标代码我有,我问的不是这个问题,我是问在webbrowser控件上如何得到鼠标坐标??

4楼: 简单的办法,在Timer事件中取的全局鼠标位置,再与你的程序主窗口及浏览器窗口相对位置计算得出鼠标位置,
根本的办法,取得浏览器包含的子窗口再子窗口(具体取哪个请查看资料没记的那么清楚)的句柄,hook它的mousemover消息,就可取得

5楼: 看原理没用啊,我想要具体的方法。[:(]

6楼: getcursorpos(xx);
取得屏幕坐标.然后用ScreenToClient转换成wb的相对坐标
需要用到的句柄是webbrowser1.handle(第一个参数)

ScreenToClient函数功能:该函数把屏幕上指定点的屏幕坐标转换成用户坐标。
函数原型:BOOL ScreenToClient(HWND hWnd, LPPOINT lpPoint);
参数:
hWnd:指向窗口的句柄,此窗口的用户空间将被用来转换。
lpPoint:指向POINT结构指针,该结构含有要转换的屏幕坐标。
返回值:如果函数调用成功,返回值为非零值,否则为零。
注释:该函数应用hWnd参数标识的窗口和POINT结构给定的屏幕坐标来计算用户坐标,
然后以用户坐标来替代屏幕坐,新坐标是相对于指定窗口的领域的左上角。

代码大概如下,没有delphi没有调试
var
curPos: TPoint;
begin
GetCursorpos(curPos);
ScreenToClient(webbrowser1.handle,curPos)
此时curPos就是相对wb的坐标.
end;

进销存软件版7楼: 我在delphi盒子找到一个这方面的控件,问题解决了。谢谢各位。