Globale Mausposition anzeigen

[sunshine-girl87]

Hallo,

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

Delphi-Quellcode:

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