Eine Form an eine andere Form andocken?

[Gregor]

Hallo,

ich habe 2 Form. Jetzt soll die eine beim öffnen links an das schon offene andocken und die andere beim öffnen rechts ran!

Wie mache ich das?

P.S: Ja ich habe gesucgt und nein es kamm ncihts schlaues raus!

Gregor

[Gregor]

Kann es sein das es einfach nicht möglich ist, denn auch googeln brachte keinen erfolg :(

[Niko]

Zitat:

Zitat von Delphi-Hilfe

Mit ManualDock wird das Steuerelement angedockt.

ManualDock entfernt das Steuerelement von dessen aktueller Position und dockt es an der neuen Position an.

[APP]

Hallo,
um eine Form an die andere Anzudocken, könntest Du folgendes machen:

Delphi-Quellcode:

UNIT Unit1;

INTERFACE

USES
...
  unit2;  //  <----- 2. Form einbinden!

TYPE
  TForm1 = CLASS(TForm)
    Button4: TButton;
    PROCEDURE Button4Click(Sender: TObject);
  PRIVATE
    //    Dockingmanager
    PROCEDURE WMMove(VAR Message: TWMMove); MESSAGE WM_MOVE;
    PROCEDURE AlignForm;
  PUBLIC
    { Public declarations }
  END;

VAR
  Form1                            : TForm1;
  DebugM                           : TForm2;
IMPLEMENTATION

{$R *.dfm}

PROCEDURE TForm1.WMMove(VAR Message: TWMMove);
BEGIN
  INHERITED;
  TRY
    // Prüfen ob Form2 vorhanden ist
    IF Assigned(DebugM) THEN
      BEGIN
        AlignForm;
      END;
  EXCEPT
  END;
END;

PROCEDURE TForm1.AlignForm;
BEGIN
  // Form2 an Form1 ausrichten (rechte obere Ecke)
  DebugM.Left := Self.Left + Self.Width;
  DebugM.Top := Self.Top;
END;

PROCEDURE TForm1.Button4Click(Sender: TObject);
// Form2 erst zur Laufzeit erzeugen!
BEGIN
  IF NOT Assigned(DebugM) THEN
    BEGIN
       // Self benötigt kein Destroy!
      DebugM := TForm2.Create(Self);
      TRY
        DebugM.Show;
      EXCEPT
        DebugM.Free;
      END;
    END;
END;

END.

Damit klebt die Form2 immer an der Form1 wenn Du Form1 bewegst, nur,
wenn es mit beiden Forms unabhängig Funken sollte, dafür habe ich auch
keine Lösung.