Cursor Position abfragen

[robinWie]

Merkwürding, manchmal wird bei X eine Position >3000 angezeigt die es garnicht geben kann. (Auflösung 1024X768).

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  X,Y: integer;
  pos: TPoint;
begin
    GetCursorPos(pos);
    X:=pos.X;
    Y:=pos.Y;
    Canvas.TextOut(5,5,'X: '+IntToStr(X));
    Canvas.TextOut(5,20,'Y: '+IntToStr(Y));
end;

Der Timer hat eien Interval von 1ms.

Zitat:

und den Y Wert mit pos.? rausfinden.
Warum das "?"? Tja, n bisschen Eigeninitiative muss sein

War kniffelig. Aber gelöst