Hallo
ich habe 2 variable als Integer
Delphi-Quellcode:
var
x1,y1, x2,y2 : Integer;
begin
x1:= Form1.left;
y1:=Form1.Top;
x2:=form1.left+100;
y2:=Form1.Top+100;
...
Ich möchte aber diese Koordinaten mit der Maus durch Klick auf Form über 2 Punkte bestimmen wie im Bild
Also zum Test, wollte ich den Code in ein Button legen
Wenn ich auf das Button Klicke, soll :
ShowMessage('Ersten Punkt anklicken um x1,y1 zu bestimmen);
Und nach dem Klick auf Form soll noch ein mal:
ShowMessage('Zweiten Punkt anklicken um x2,y2 zu bestimmen);
Und schon sind die Koordinaten damit zugewiesen
Wer kann mir dabei helfen ?
Gruß