Mausposition Systemweit abfragen

[compmgmt]

Hallo,
Ich möchte eine Form (ist ein extra Programm) an der Position des Mauszeigers starten. Mouse.GetMouseX; bzw. mit Y oder auch GetCursorPos gibt nur die Position relativ zur Form aus, das bringt mir natürlich nichts :/

System: Windows XP Professional SP3


Vielen Dank für eine Antwort im Vorraus.

Mit freundlichen Grüßen
compmgmt

[theo]

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
var P:TPoint;
begin
 P:=ClientToScreen(Mouse.CursorPos);
 Left:= P.X;
 Top:= P.Y;
end;       

Seit wann schreibt man eigentlich "im Voraus" mit zwei "r"?
Das lese ich immer öfter.

[wp_xyz]

Mouse.GetMouseX; bzw. mit Y oder auch GetCursorPos gibt nur die Position relativ zur Form aus

Wo hast du das denn her?

Mach dir ein neues Projekt, setze ein Label und einen Timer drauf, gib dem Timer ein kurzes Interval von etwa 10 ms und weise ihm folgenden OnTimer-Eventhandler zu:

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Format('x = %d, y = %d', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
end; 

Bewege die Maus in die linke obere Bildschirmecke - was zeigt das Label an?

Unabhängig davon kann man control-relative Punkt-Koordinaten in bildschirm-relative Koordinaten umwandeln mit ClientToScreen(P:TPoint) (bzw. umgekehrt mit ScreenToClient(P:TPoint)).

[compmgmt]

Seit wann schreibt man eigentlich "im Voraus" mit zwei "r"?
Das lese ich immer öfter.

"Voraus" ist richtig, das war ein Tippfehler ^^

Aber trotzdem funktioniert das nur halb...

Kurze Zusatzinfo: Ich habe eine DLL die ein Forumlar aufruft.
Wenn ich in der Unit des Formulars beim Event "OnShow" oder bei einem Button "OnClick" diesen Befehl aufrufe, kommt eine Fehlermeldung "access-violation". Natürlich rufe ich die DLL über ein anderes Programm dynamisch auf, dadurch kann ich das ganze nicht debuggen :/

Hier der Code. Ich musste "CursurPos" austauschen, da dies anscheinend nicht mehr existiert

Code: Alles auswählen

procedure TWnd_A.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  P := ClientToScreen(Point(Mouse.GetMouseX, Mouse.GetMouseY));
  Wnd_A.Left:= P.X;
  Wnd_a.Top:= P.Y;
end;

[compmgmt]

Mouse.GetMouseX; bzw. mit Y oder auch GetCursorPos gibt nur die Position relativ zur Form aus

Wo hast du das denn her?

Mach dir ein neues Projekt, setze ein Label und einen Timer drauf, gib dem Timer ein kurzes Interval von etwa 10 ms und weise ihm folgenden OnTimer-Eventhandler zu:

Code: Alles auswählen

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Format('x = %d, y = %d', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
end; 

Bewege die Maus in die linke obere Bildschirmecke - was zeigt das Label an?

Unabhängig davon kann man control-relative Punkt-Koordinaten in bildschirm-relative Koordinaten umwandeln mit ClientToScreen(P:TPoint) (bzw. umgekehrt mit ScreenToClient(P:TPoint)).

Mouse.CursorPos.X Gibt es nicht. P.S.: Ich hab Lazarus 1.4.0

[Mathias]

Mouse.CursorPos.X Gibt es nicht. P.S.: Ich hab Lazarus 1.4.0

Bei mir geht es, habe Lazarus 1.6 .

[compmgmt]

Mouse.CursorPos.X Gibt es nicht. P.S.: Ich hab Lazarus 1.4.0

Bei mir geht es, habe Lazarus 1.6 .

Jo, kann gut sein, dass es daran liegt. Aber ich habe das ganze jetzt anders gelöst, da ich es sogar besser ist, wenn ich die Form nicht an der Mauszeigerposition anzeige. Sieht besser aus. Trotzdem danke für eure Hilfe