Mausklick ausführen, ohne Mauszeigerbewegung.

[Lostriga]

Aloa ihr´s,

war ja schon lange nicht mehr hier.

Ich habe mal ein kleines Problemchen, welches mir noch nicht zu lösen gelang.

Wie es der Titel dieses Thread schon aussagt, suche ich nach einer Möglichkeit
einen Mausklick auszuführen ohne das dafür der Mauszeiger bewegt werden muss.
Ich weis nicht ob das in Wunschdenken endet oder gar doch möglich ist,
denn in den Weiten des Internets habe ich nicht´s dazu gefunden.

Für´s 100% verständliche:
Sagen wir der Mauszeiger befindet sich an der Desktop Position x:300/y:700,
nun möchte ich einen Mausklick simulieren der auf der Position x:800/y:500 ausgeführt werden soll.
Mir ist bekannt, dass ich die Maus unteranderem per SetCursorPos an diesen Zielpunkt hinbewegen kann,
mein Versuch ist es aber nun, den Klick ohne jeglicher Bewegung des Cursor´s
an der angestrebten Koordinate auszuführen, woran ich derzeit allerdings scheiterte.

Über PostMessage und Mouse_Event bin ich zu keinem Ergebnis gekommen,
kennt da einer von euch vielleicht eine Möglichkeit?, oder bleibt es doch nur eine Vorstellung.


Mit freundlichem Gruß

Lostriga

[s.h.a.r.k]

Du willst also nur an irgendeine bestimmte Stelle klicken und nicht auf einen Button der dergleichen?

[omata]

Was spricht gegen folgendes?

Delphi-Quellcode:

procedure TForm.MakeMouseClick(AP: TPoint);
var P:TPoint;
begin
  if GetCursorPos(P) then begin
    SetCursorPos(AP.X, AP.Y);
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    SetCursorPos(P.X, P.Y);
  end;
end;

[Lostriga]

Aloa,

danke für die raschen Antworten.

@ s.h.a.r.k
Ja ich möchte einfach einen Mausklick an einer bestimmten Position ausführen,
das halt ohne den Cursor zu bewegen.

@ omata
Deine eventuelle Lösung sieht interessant aus,
doch leider kann ich grad nicht´s mit dem (AP: TPoint) in der Procedure anfangen.
Wärst du so lieb und würdest das mit etwas mehr Quelltext erklären?


Mit freundlichem Gruß

Lostriga

[omata]

Ok...

Aufruf:

Delphi-Quellcode:

var P:TPoint;
begin
  P.X:=100;
  P.Y:=100;
  MakeMouseClick(P);
end;

[Lostriga]

Aloa,

ich weis nicht, aber ich glaube ich steh auf´m Kopf.

Das sagt mir nun dennoch nichts, es ist dieses direkte (AP: TPoint),
welches in der Procedure steht womit ich gerade nicht klar komme.

Bei mir kommt halt immer ein (Sender: TObject), mit eventuellem var, jenachdem welches Ereignis halt.
Ich komme grad halt nicht auf das (AP: TPoint), weist was ich meine?, was hast du da benutzt?


Mit freundlichem Gruß

Lostriga

[omata]

Ne, kann deine Probleme nicht nachvollziehen.

Versuche es deshalb mal so, in der Hoffnung, dass dir das besser gefällt:

Delphi-Quellcode:

procedure TForm.MakeMouseClick(X, Y:integer);
var P:TPoint;
begin
  if GetCursorPos(P) then begin
    SetCursorPos(X, Y);
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    SetCursorPos(P.X, P.Y);
  end;
end;

Edit: Du must doch irgendwo diese Routine Aufrufen wollen? Wo kommen die Koordinaten her, an denen du den Mausklick durchführen möchtest?

[s.h.a.r.k]

Kurz zur Klärung: Dieses AP: TPoint ist der Zielpunkt, an dem geklickt werden soll. Du musst doch irgendwoher diesen Punkt haben. Nun musst halt entweder eine Methode schreiben, was ich auf jeden Fall rate, oder du packst es irgendwie in eine Klasse.

[omata]

MakeMouseClick ist doch eine eigene Methode.

[s.h.a.r.k]

Mein Kommentar war für Lostriga. Ich denke er hat noch nicht ganz verstanden, wo der Punkt herkommt.