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:

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 :)

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Die Delphi-IDE" nach "Sonstige Fragen zu Delphi" verschoben.
Und was hat das mit der IDE zu tun?

[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:

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 :cry:

[RavenIV]

Zitat:

Zitat von taktaky

Deutschalnd ist im Finale, trotzdem keine Laune ?

Ich würde dann alleine versuchen :cry:

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:

Zitat von taktaky

Ich würde dann alleine versuchen :cry:

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

[Daniel]

Zitat:

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 *