Einzelnen Beitrag anzeigen

DieFliege

Registriert seit: 6. Aug 2013
54 Beiträge
 
Delphi XE4 Professional
 
#1

Mouse-Koordinaten ... die 20154. :-(

  Alt 16. Apr 2017, 22:41
Hallo zusammen,

allen ein schönes Osterfest!

Irgenwie sehe ich den Wald vor lauter Bäumen nicht.

Ich kann mir in einem Label oder Edit die aktuellen Mouse Positionsdaten anzeigen lassen, auch ausserhalb der Form, kein Problem.

Wie jedoch kann ich diese Daten mit einem Klick in einem Edit-Feld per Klick übernehmen? Sobald ich die Form selbst verlasse und irgendwo anders hin klicke verliere, passiert nix (klar verliere ja den Fokus). Wie kann ich dies dennoch realisieren?

Aktuell habe ich folgendes:
1x Timer
2x Label
2x Edit

Delphi-Quellcode:
procedure Tform1.Timer1Timer(Sender: TObject);
begin
  lbl_cursor_x.Caption := IntToStr(Mouse.CursorPos.X);
  lbl_cursor_y.Caption := IntToStr(Mouse.CursorPos.Y);
end;
In den beiden Label werden mir die Koordinaten angezeigt, auch ausserhalb der Form. In die beiden Edit sollen die Daten der Stelle rein, die ich mit der Maus anklicke.

Könnt ihr mir helfen?

LG DieFliege
  Mit Zitat antworten Zitat