X – Y - Koordinaten Anzeigen

[Gast]

Hallo, 8)

X – Y - Koordinaten Anzeigen

habe ein neues Projekt geöffnet mit nur 2 TEdit Felder.

Also ich habe ein leeres Formular mit NUR zwei Edit Felder : Edit1 und Edit2... und sonnst nichts.

Jetzt schiebe ich die Maus übers Formular und klicke (blind) die linke bzw. die rechte Maus-Taste. Erst jetzt möchte ich (also nach anklicken), das sich entsprechend in dem Edit1 und Edit2 die entsprechenden Koordinaten der angeklickten Punkt Zeigen... aber NUR dann falls ich anklicke... sonnst nichts.

Wie mache ich das?

Gruß

Paul Jr.

[Luckie]

Ich glaube du solltest dich mal so langsam Richtung Ecke bewegen, in die du dich gleich stellst:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text := IntToStr(x);
  Edit2.Text := IntToStr(y);
end;

[Gast]

So einfach... danke Luckie

Gruß

Paul Jr.