Form an Form docken

**joe666sa**

Hi,

Habe folgendes Problem wo ich zur zeit nicht wieterkomme und zwar habe ich eine Anwendung die aus mehreren Forms besteht und ich möchte dass man die so wie bei Winamp an und abdocken kann.

Mfg joe666sa

**APP**

Hallo joe666sa,

schau mal hier, ob Dir diese Lösung zusagt:

http://www.delphipraxis.net/internal...highlight=form

**joe666sa**

Diese Lösung mit WM_Move habe ich auch schon gefunden nur kann man da das Form halt nr andocken und nichtmehr abdocken.

**sakura**

Du musst lediglich einen Schalter einbauen, ob die Methode AlignForm ausgeführt werden soll. Ist doch nur einfachste Logik

...

**joe666sa**

Ja aber ich möchte es so machen dass wenn Form2 nahegenug an Form1 ist dass es dann angedockt wir und wenn man Form2 weitgenug von Form1 wegzieht dass es dann wieder abgedockt wird.Doch irgend wie finde ich dazu keine lösung.

**scp**

Die Logik könnte etwa so aussehen:

markieren

Delphi-Quellcode:

			If ((Form2.Left - (Form1.Left + Form1.Width)) < 50) then

begin

  // Andocken aktivieren

end

else

begin

  // Andocken deaktivieren

end;

Das Andocken wird dann nur aktiviert, wenn Form2 weniger als 50 Pixel von der rechten Seite von Form1 entfernt ist.

**Matze**

@scp: Und wenn es einmal angedockt ist, lässt es sich so nicht mehr abdocken.

**joe666sa**

markieren

Delphi-Quellcode:

			begin

         if (Form3.Left < (Form1.Left + Form1.Width + 25)) or

         ((Form3.Left + Form3.Width) => (Form1.Left - 25)) then

           AlignForm;

So sollte es gehen nur so kriege ich immer folgenden fehler.

markieren

Code:

			Build

  [Error] Unit1.pas(221): Expression expected but '<' found

  [Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'

**sakura**

Nicht => sondern >=

markieren

Code:

			begin

         if (Form3.Left < (Form1.Left + Form1.Width + 25)) or

         ((Form3.Left + Form3.Width) [color=#ff0009]>=[/color] (Form1.Left - 25)) then

           AlignForm;

...

**Matze**

schreibe anstatt

=> einfach

>=

Edit: Katzen sind nunmal schneller als Menschen.

Form an Form docken

Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Re: Form an Form docken

Forumregeln

joe666sa Registriert seit: 11. Jun 2003 54 Beiträge	#1 Form an Form docken 3. Aug 2004, 20:27 Hi, Habe folgendes Problem wo ich zur zeit nicht wieterkomme und zwar habe ich eine Anwendung die aus mehreren Forms besteht und ich möchte dass man die so wie bei Winamp an und abdocken kann. Mfg joe666sa
	Zitat

APP Registriert seit: 24. Feb 2003 Ort: Graz (A) 705 Beiträge Delphi 7 Enterprise	#2 Re: Form an Form docken 4. Aug 2004, 05:35 Hallo joe666sa, schau mal hier, ob Dir diese Lösung zusagt: http://www.delphipraxis.net/internal...highlight=form Armin P. Pressler BEGIN ...real programmers are using C/C++ - smart developers Delphi; END;
	Zitat

joe666sa Registriert seit: 11. Jun 2003 54 Beiträge	#3 Re: Form an Form docken 4. Aug 2004, 09:11 Diese Lösung mit WM_Move habe ich auch schon gefunden nur kann man da das Form halt nr andocken und nichtmehr abdocken.
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#4 Re: Form an Form docken 4. Aug 2004, 09:13 Du musst lediglich einen Schalter einbauen, ob die Methode AlignForm ausgeführt werden soll. Ist doch nur einfachste Logik ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

joe666sa Registriert seit: 11. Jun 2003 54 Beiträge	#5 Re: Form an Form docken 4. Aug 2004, 15:18 Ja aber ich möchte es so machen dass wenn Form2 nahegenug an Form1 ist dass es dann angedockt wir und wenn man Form2 weitgenug von Form1 wegzieht dass es dann wieder abgedockt wird.Doch irgend wie finde ich dazu keine lösung.
	Zitat

scp Registriert seit: 31. Okt 2003 1.120 Beiträge Delphi 7 Personal	#6 Re: Form an Form docken 4. Aug 2004, 15:33 Die Logik könnte etwa so aussehen: markieren Delphi-Quellcode: If ((Form2.Left - (Form1.Left + Form1.Width)) < 50) then begin // Andocken aktivieren end else begin // Andocken deaktivieren end; Das Andocken wird dann nur aktiviert, wenn Form2 weniger als 50 Pixel von der rechten Seite von Form1 entfernt ist.
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#7 Re: Form an Form docken 4. Aug 2004, 15:52 @scp: Und wenn es einmal angedockt ist, lässt es sich so nicht mehr abdocken.
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#9 Re: Form an Form docken 4. Aug 2004, 16:14 Nicht => sondern >= markieren Code: begin if (Form3.Left < (Form1.Left + Form1.Width + 25)) or ((Form3.Left + Form3.Width) [color=#ff0009]>=[/color] (Form1.Left - 25)) then AlignForm; ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#10 Re: Form an Form docken 4. Aug 2004, 16:16 schreibe anstatt => einfach >= Edit: Katzen sind nunmal schneller als Menschen.
	Zitat