Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Koordinaten vom Bildschirm anzeigen
Stread - Do 01.04.10 10:49
Titel: Koordinaten vom Bildschirm anzeigen
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
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 - 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.
Stread - Do 01.04.10 14:03
Ich habe nun hinbekommen.
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 - Do 01.04.10 14:08
In das Timer.OnTimer-Event schreiben ;)
wfg Jon S.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!