Cursor Position abfragen

[robinWie]

Abend,

wie kann man die Cursor Position auf den gesamten Monitor abfragen, also nicht nur auf dem Anwendungsfenster.

Robin

[Rastaman]

Delphi-Quellcode:

var
  pos: TPoint;
begin
  GetCursorPos(pos);
end;

in pos sind die Cursordaten jetzt gespeichert.
Du kannst den X Wert mit pos.X und den Y Wert mit pos.? rausfinden.
Warum das "?"? Tja, n bisschen Eigeninitiative muss sein :mrgreen:

[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 :mrgreen:

[robinWie]

Oh Man, was bin ich inkompetent!!
Hab

Delphi-Quellcode:

Canvas.FillRect(Canvas.ClipRect);

vergessen!! :wall:

[3_of_8]

Nebenbei: Es geht auch per Mouse.CursorPos.

[robinWie]

Kann man auch mit z.B. Canvas auf'm Bildschirm rummalen???

[Neutral General]

Ja kann man aber such mal danach in der DP das gabs auch schon einige male ;)