模拟鼠标的单双击.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 21 行

模拟鼠标的单双击
1在鼠标的"双击按钮"事件的编写方法
var pt:TPoint;
begin
 pt:=edit1.clienttoscreen(point(4,4));
 setcursorpos(pt.x+4,pt.y);
 //模拟鼠标双击
 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);
end;
2在鼠标的"单击按钮"事件的编写方法
var pt:TPoint;
begin
 pt:=edit1.clienttoscreen(point(4,4));
 setcursorpos(pt.x+4,pt.y);
 //模拟鼠标单击
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
end;