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:

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]

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.

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 >=

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.