Koordinaten vom Bildschirm anzeigen

Stread · Beiträge: 188 Win 7 Delphi XE

Hi,
ich möchte dass wenn man mit der Maus über den Bildschirm fährt die Koordinaten (X|Y) wo sich der Mauszeiger gerade befindet in der Delphi Form in 2 Edit Feldern angezeigt wird.
Bis jetzt habe ich es nur geschafft die Koordinaten in der Delphi Form anzeigen zu lassen. Sobald der Mauszeiger die Form verlässt, werden keine Koordinaten mehr angezeigt.

Wie kann man das Realisieren?

Bisher hab ich es so

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm12.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
XEdit.Text:= IntToStr(X);
YEdit.Text:= IntToStr(Y)
end;

Xentar · Verfasst: Do 01.04.10 11:01

TForm.OnMouseMove wird eben nur ausgeführt, wenn man die Maus über dem Formular bewegt.
Wenn du das allgemein haben möchtest, könntest du dies z.B. mit nem Timer tun, und dann regelmäßig GetCursorPos (oder heißt das GetMousePos..?) abfragen.

_________________
PROGRAMMER: A device for converting coffee into software.

Stread · Beiträge: 188 Win 7 Delphi XE

Ich habe nun hinbekommen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm12.Timer1Timer(Sender: TObject);
var
  MousePosition : TPoint;
begin
  GetCursorPos(MousePosition);
  EditX.Text:=IntToStr(MousePosition.X);
  EditY.Text:=IntToStr(MousePosition.Y);

end;

JonS · Verfasst: Do 01.04.10 14:08

In das Timer.OnTimer-Event schreiben

wfg Jon S.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme