Cursorposition ermitteln?

[malo]

Wie kann man die Position des Cursors ermitteln?

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: Tpoint;
begin
  pt := Mouse.CursorPos;
  Caption := IntToStr(pt.X)
end;

[malo]

Ah, danke

[malo]

Und wie kann ich den Code über andere Procedures abrufen, beispielsweise OnClick oder OnTimer oder sowas? Weil da ja X nicht gegeben ist

[dde]

windows.getcursorpos(cursorpos:TPOINT);

[Luckie]

Wenn du mal genau hinkuckst, wirst du sehen, dass ich die Parameter von dem Ereignis OnMouseMove gar nicht benutze.

[malo]

Zitat von Luckie:

Wenn du mal genau hinkuckst, wirst du sehen, dass ich die Parameter von dem Ereignis OnMouseMove gar nicht benutze.

Äh... jetzt bin ich etwas verwirrt

ich hab auf diese Zeile geguckt:
Caption := IntToStr(pt.X) und da kommt am ende ganz klar ein X vor... was ja dann ein Parameter vom OnMouseMove-Event wäre... der Code funktioniert aber auch in anderen Procedures... seltsam... aber auf jeden Fall funktioniert es

[Neutral General]

das X gehört aber nicht zu der Procedure MouseMove sondern das X ist eine Eigenschaft von TPoint

[add]mit

 pt := Mouse.CursorPos; wird der Variable "pt" vom Typ TPoint, der die Eigenschaften X und Y besitzt, die Mausposition zugeordnet.

Caption := IntToStr(pt.X) Hiermit Wird die X Eigenschaft der "pt" Variable als Form1.Caption ausgegeben.[/add]