Koordinaten mit Mit der Maus mit Drag und Drop bestimmen ?

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

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 *

Koordinaten mit Mit der Maus mit Drag und Drop bestimmen ?

Koordinaten mit Mit der Maus mit Drag und Drop bestimmen ?

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#2 Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen 26. Jun 2008, 12:08 Zitat von taktaky: Wer kann mir dabei helfen ? Wobei? Was ist denn Dein Problem? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen

Larsi Registriert seit: 10. Feb 2007 2.262 Beiträge Delphi 2007 Professional	#3 Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen 26. Jun 2008, 12:09 Ich glaube genau das will er machen kanns aber nicht Ein Tag ohne Delphi ist ein verlorener Tag! Homepage zu meinem neuen Programm: StreamZ

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#6 Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen 26. Jun 2008, 12:31 Im OnMouseDown-Event gibt es als kleine Zugabe auch noch die Parameter X und Y Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen

taktaky (Gast) n/a Beiträge	#7 Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen 26. Jun 2008, 14:04 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

Daniel (Co-Admin) Registriert seit: 30. Mai 2002 Ort: Hamburg 13.919 Beiträge Delphi 10.4 Sydney	#10 Re: Koordinaten mit Mit der Maus mit Drag und Drop bestimmen 26. Jun 2008, 15:53 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 * Daniel R. Wolf mit Grüßen aus Hamburg