Globale Mausposition anzeigen

[sunshine-girl87]

Hallo,

wie kann ich anzeigen lassen, wo sich die Maus befindet? Ich habe

Mouse.CursorPos.X mir mal ausgeben lassen und habe festgestellt, dass dies nur auf das Form bezogen ist. Möchte aber die 1024x786 Pixel ausnutzen

Danke

[Airblader]

Schau in der Hilfe mal nach ScreenToClient und ClientToScreen

air

[sunshine-girl87]

Hm,

die selbe Wirkung hat folgender Code (auch nur innerhalb der Form)

Delphi-Quellcode:

var
  pt: TPoint;
begin
  pt:=Mouse.CursorPos;
  pt := ScreenToClient(pt);
  Form1.Caption:=Inttostr(pt.X);

Was mache ich falsch?

[MisterNiceGuy]

So müsste es gehen:

Delphi-Quellcode:

var MausPos : TPoint;
begin
  getcursorpos(MausPos);
  showmessage(inttostr(Mauspos.X)+inttostr(Mauspos.y));
end;

[Karl-Heinz]

Viel einfacher im Windows-Api (falls Du die M-Position unabhängig von Delphi auf den Bildschirm bezogen haben willst):

var
pt: tpoint;
begin
GetCursorPos(pt);
end;

Hoffe, das hilft.

(Sorry, MisterNiceGuy, da hat sich was überschnitten. Ist das gleiche )

Liebe Grüße,
Karl-Heinz