Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
|
Re: Mausklick ausführen, ohne Mauszeigerbewegung.
12. Jan 2010, 01:16
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;
|
|
Zitat
|