Antwort
Abwechseld Du und der Computer geht z.B. so...
...
...
var
Form4:TForm4;
YourTurn:Boolean = True;
implementation
{$R *.dfm}
procedureTForm4.Button1Click(Sender:TObject);
begin
ifYourTurnthen
begin
// Mache was
YourTurn:=False;
end;
end;
procedureTForm4.Timer1Timer(Sender:TObject);
var
x,y:Integer;
begin
x:=100;// oder andere Positionen
y:=200;
if not YourTurn then // wartet, bis er dran ist bzw Du nicht mehr!
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,x,y,0,0);
YourTurn:=True;
end;
end;