模擬鼠標的單雙擊
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;