Cursorposition ermitteln?

[malo]

Wie kann man die Position des Cursors ermitteln? :gruebel:

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

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

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 :gruebel:

ich hab auf diese Zeile geguckt:

Delphi-Quellcode:

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

[Neutral General]

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

[add]mit

Delphi-Quellcode:

 pt := Mouse.CursorPos;

wird der Variable "pt" vom Typ TPoint, der die Eigenschaften X und Y besitzt, die Mausposition zugeordnet.

Delphi-Quellcode:

Caption := IntToStr(pt.X)

Hiermit Wird die X Eigenschaft der "pt" Variable als Form1.Caption ausgegeben.[/add]