Mausklick simulieren klappt einfach nicht :-(

[hathor]

Ich habe mal ein kleines Testprogramm gemacht,
das funktioniert so:
Man klickt Button2 an, 3 Sek. später wird Button1 ausgelöst.
(Button1 hat die Dimension 100 x 100)

Delphi-Quellcode:

procedure MoveMouseIntoControl(AWinControl: TControl);
var rtControl: TRect;
begin
  rtControl := AWinControl.BoundsRect;
  MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);
  SetCursorPos(rtControl.Left + (rtControl.Right - rtControl.Left) div 2,
    rtControl.Top + (rtControl.Bottom - rtControl.Top) div 2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Sleep(3000);
MoveMouseIntoControl(Button1);
mouse_event(MOUSEEVENTF_LEFTDOWN, 50, 50, 0, 0);
Sleep(50);
mouse_event(MOUSEEVENTF_LEFTUP, 50, 50, 0, 0);
Application.ProcessMessages;
end;

[Luckie]

Also ich würde das nicht mit der Maus machen. Was wenn der Benutzer gerade was damit machen will? Fülle die Felder mit WM_SETTEXT aus und klicke die Schaltfläche mittels BM_CLICK an.

Kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(edt1.Text);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  s: AnsiString;
begin
  s := 'hello world';
  SendMessage(edt1.Handle, WM_SETTEXT, 0, Integer(@s[1]));
  SendMessage(btn1.Handle, BM_CLICK, 0 , 0);
end;

[Medium]

Nicht alle Programme nutzen WinControls Luckie

Ich bin mit nicht sicher, ob man Bewegung und Click bei SendInput() in einen Aufruf packen kann. Als ich damit mal rumgespielt habe, hatte ich das getrennt, und das sah ganz gut aus. Wäre nen Versuch wert.

[Luckie]

OK, berechtigter Einwand. Wäre das denn bei Foxpro der Fall?

[SearchBot]

Hallo,

danke für Eure Aufmerksamkeit.

FoxPro hat scheinbar keine WinControls, weil ich bekomme von dort keine Handles angezeigt.
Daher kann ich die Vorschläge von hathor und Luckie leider nicht anwenden. Hätte ich Handle, wäre ich schon lange fertig.
In meiner Delphi-Testapp habe ich natürlich handles, aber ich muss es ohne machen, weil ich in Foxpro ja keine habe.

Aber ihr habt mir trotzdem ein paar neue Denkansätze gegeben (BM_CLICK, Bewegung und Klick trennen)...

Vielleicht weiß noch jemand was?

[madtom]

Zitat von SearchBot:

Daher kann ich die Vorschläge von hathor und Luckie leider nicht anwenden. Hätte ich Handle, wäre ich schon lange fertig.

Hallo, für die letzte Prozedur aus Hathors Vorschlag brauchst Du kein Handle, allerdings die Position des Controls, auf das Du klicken willst. Also wenn Du die Position bestimmen würdest, zur Not über das Handle des Formulars die Form-Position bestimmen und dann +X und +Y Koordinaten ...

siehe auch:
http://delphi.about.com/od/vclusing/a/mouseadvanced.htm

[SearchBot]

Oooooooooooooooooooooooooh, ich bin ein Vollpfosten!!!

In einer App mit 'nur Klicken' geht es - in meiner geht es nicht (jetzt aber endlich schon).

Hier ist der Grund - siehst du ihn auch?

Auszug, wie ich den Script für die Mausposition zerlege... s='@ML400,200;';

Code:

        case upcase(s[i+1]) of
         'M','V':begin
              t:=copy(s,i+3,pos(';',s)-(i+3)); inc(i,length(t)+4);
              u:=copy(t,1,pos(',',t)-1); delete(t,1,pos(',',t));
              x:=strtoint(u); y:=strtoint(t);
              if upcase(s[i+1])='M' then MClick2(upcase(s[i+2]),x,y)
              else SetCursorPos(x,y);
             end;

Dieser kleine Teufelsbug hat mich jetzt 10 Stunden rumgebastele gekostet
..und ich hoffe, daß es dann auch in FoxPro so funzt...