模拟鼠标的单双击.txt

是一部详细介绍了DELPHI的经典著作

模拟鼠标的单双击
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;