Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Mausklick ausführen, ohne Mauszeigerbewegung.

  Alt 12. Jan 2010, 00:54
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?
  Mit Zitat antworten Zitat