Mauszeigerposition

[Marco Sprenger]

Hallo,

wie kann die Position(PixelX,PixelY) des Mauszeigers im Bildschirm ermitteln, damit ich meine Form an dieser Stelle erstellen kann.

Danke Marco

[Uli Becker]

Hallo,

var p: TPoint;

GetCursorPos(p);

Gruß Ul

[Klaus-Peter Fitzner]

Hallo Marco,
mal als Ansatzpunkt:
Ich habe meinen Code mit Ulis ergänzt und bin dabei bei mir auf 4 Pixel Unterschied gekommen. Der linke Rand der Form liegt bei -4.
Warum weiß ich noch nicht.
<pre>
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
GetCursorPos(p);
Label1.Caption := 'Mauszeiger x: '+IntToStr(x);
Label2.Caption := 'Linker Rand der Form: '+IntToStr(Form1.Left);
Label3.Caption := 'GetCursorPos: '+IntToStr(p.x);
Label4.Caption := 'Position des Mauszeigers auf dem Bildschirm '+
IntToStr(x+Form1.Left);
end;
</pre>

mfg Klaus-Pete

[Marco Sprenger]

danke, funzt sehr gut