在webbrowser中打开页面,我想自动在其中的一个连接上实现鼠标点击。procedure MoveMouseToControl(AControl: TWinControl);
var
Rect: trect;
x, y: integer;
atCursor: TPoint;
hWndMouseOver, hTest: HWND;//鼠标的句柄
begin
Rect :=AControl.BoundsRect;
MapWindowPoints(AControl.Parent.Handle, 0, Rect, 2);
SetCursorPos(Rect.Left + (Rect.Right - Rect.Left) div 2,
Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120); //鼠标已经跳到连接上
x:= Rect.Left + (Rect.Right - Rect.Left) div 2;
y:= Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120; SendMessage(Form2.WebBrowser1.Handle, WM_LBUTTONDBLCLK , MK_LBUTTON, MAKELPARAM(x,y));
//发送双击消息但是没反应
end;请问能实现这个自动双击吗?请各位指教
var
Rect: trect;
x, y: integer;
atCursor: TPoint;
hWndMouseOver, hTest: HWND;//鼠标的句柄
begin
Rect :=AControl.BoundsRect;
MapWindowPoints(AControl.Parent.Handle, 0, Rect, 2);
SetCursorPos(Rect.Left + (Rect.Right - Rect.Left) div 2,
Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120); //鼠标已经跳到连接上
x:= Rect.Left + (Rect.Right - Rect.Left) div 2;
y:= Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120; SendMessage(Form2.WebBrowser1.Handle, WM_LBUTTONDBLCLK , MK_LBUTTON, MAKELPARAM(x,y));
//发送双击消息但是没反应
end;请问能实现这个自动双击吗?请各位指教
解决方案 »
- 如何让弹出的窗体显示在主窗体的指定位置?
- 请教大家关于DBgrid显示方面的问题???
- 如何获取存储过程的返回值?
- 为什么我取不到时间中的分??急啊??
- 《初学者有关dbgrid的疑问???????????》
- 求助:以前的c/s系统是Delphi2做的,现在升级要改用Delphi5来做了,请问应注意什么呢?
- treeview的使用用Onclick?还是onchange呢?(我想点击某一项,打开另个form)
- 谁有金山毒霸V安全组合版本 和零售版本的序列号?
- 调用外部可执行文件的问题!!!
- 如何避免Edit的onchange事件触发2次
- dxDBGrid的问题!用过来看下!!!!!!!
- access数据库插入记录
//单击
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
//双击
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);试试看这个行不行?
var
Rect: trect;
x, y: integer;
atCursor: TPoint;
hWndMouseOver, hTest: HWND;//鼠标的句柄
begin
Rect :=AControl.BoundsRect;
MapWindowPoints(AControl.Parent.Handle, 0, Rect, 2);
SetCursorPos(Rect.Left + (Rect.Right - Rect.Left) div 2,
Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120); //鼠标已经跳到连接上
x:= Rect.Left + (Rect.Right - Rect.Left) div 2;
y:= Rect.Top + (Rect.Bottom - Rect.Top) div 2 + 120; mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //SendMessage(Form1.WebBrowser1.Handle, WM_LBUTTONDBLCLK , MK_LBUTTON, MAKELPARAM(x,y));
//发送双击消息但是没反应
end;试过了,一定可以。