Koordinaten mit Mit der Maus mit Drag und Drop bestimmen ?

[taktaky]

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ß

[DeddyH]

Zitat von taktaky:

Wer kann mir dabei helfen ?

Wobei? Was ist denn Dein Problem?

[Larsi]

Ich glaube genau das will er machen kanns aber nicht

[RavenIV]

Ich spendiere Dir keinen kompletten Code, sondern nur Hilfe-zur-Selbsthilfe.

Es gibt die Funktion GetCursorPos.
Diese liefert die Koordinaten des Mauspointers.

Im Formular gibt es das Event OnMouseDown.
Dies wird ausgelöst, wenn eine Maustaste gedrückt wurde.
Da hinein kannst Du GetCursorPos packen.

Nun solltest Du Dein Problem mit ein Bisschen Nachdenken selber lösen können.

Gib uns dann aber bitte Deine Lösung.

[DeddyH]

Im OnMouseDown-Event gibt es als kleine Zugabe auch noch die Parameter X und Y

[taktaky]

Zitat von RavenIV:

Ich spendiere Dir keinen kompletten Code, sondern nur Hilfe-zur-Selbsthilfe.

Deutschalnd ist im Finale, trotzdem keine Laune ?

Ich würde dann alleine versuchen

[RavenIV]

Zitat von taktaky:

Deutschalnd ist im Finale, trotzdem keine Laune ?

Ich würde dann alleine versuchen

Das hat nichts mit Laune zu tun.
Wenn wir Dir immer fertige Lösungen geben, dann lernst Du nie, Dir selbst zu Helfen...

[DeddyH]

Zitat von taktaky:

Ich würde dann alleine versuchen

Da bitten wir darum. Es kann ja nicht sein, dass wir Dir hier ständig C&P-Code liefern sollen.

[Daniel]

Zitat von taktaky:

Deutschalnd ist im Finale, trotzdem keine Laune ?

Ich glaube, es hakt. Mir geht diese Einstellung, dass man es "ja mal versuchen kann", an fertigen Code zu kommen, richtig auf den Senkel.

* closed *