wanderung(扬清)请进

Question

我还有个问题想请教一下，在DELPHI里，怎么实现模拟鼠标的动作，比如：在哪个坐标点击一下，或者点右键等等。

Answer 1

不一定就他会
鼠标自动点击的例子
procedure TForm1.Button1Click(Sender: TObject);
var
 x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('fksj');
end;