Re: Mausklick ausführen, ohne Mauszeigerbewegung.
Delphi-Quellcode:
Dies ist nur eine leicht abgeänderte Form der hier zuvor geposteten Routine.
procedure TForm1.Button1Click(Sender: TObject);
var P:TPoint; X, Y:integer; begin X:=100; Y:=100; if GetCursorPos(P) then begin SetCursorPos(X, Y); Mouse_Event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0); Mouse_Event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0); SetCursorPos(P.X, P.Y); end; end; Bei mir funktionierts! MfG |
Re: Mausklick ausführen, ohne Mauszeigerbewegung.
Hi, wie wäre es hiermit (ungetestet!!)
Delphi-Quellcode:
GGf. statt "sendmessage" "postmessage" verwenden.
var h : hwnd;
p : TPoint; ClientPoint : TPoint; lparam : integer; begin h := WindowFromPoint(p); ClientPoint.x := p.x; ClientPoint.y := p.y; ScreenToClient(h,ClientPoint); lparam := ClientPoint.X + ClientPoint.Y shl 16; Sendmessage(h,WM_LBUTTOMDOWN,0,lparam); //Oder Sendmessage(h,WM_LBUTTOMDOWN,MK_LBUTTON,lparam); Sendmessage(h,WM_LBUTTUP,0,lparam); end; g lowF |
Re: Mausklick ausführen, ohne Mauszeigerbewegung.
@Lostriga:
Es ist schon eine unsaubere Methode, dass ganze über die Maus zumachen. Was auch immer du damit für ein Problem lösen willst - es gibt ganz sicher eine bessere Möglichkeit! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz