LMD DockingPack: Formular als DockPanel zur Laufzeit hinzufügen

[buddyman83]

Hi,

benutzt jemand das LMD DockingPack?

Ich versuche ein Formular als DockPanel hinzuzufügen.
Mit der Methode DockControl funktioniert es auch allerdings lässt sich das Panel dann nicht wie die anderen verschieben oder ausdocken.

Weiß jemand wie das geht ?

Gruß Bud

[Jens01]

Also ich mache das Docken mit ManualDock.

Vor ganz langer Zeit hatte ich auch solch ein Problem. Ich glaube, es lag an Dragmode (TForm), was auf dmAutomatic stehen muß.

[buddyman83]

Wenn ich den DragMode vom Formular auf dmAutomatic setze kommt beim Versuch es zu schieben eine Exception "Formulare können nicht gezogen werden".

Hast du zufällig einen kleinen Codeschnippsel zur Hand? :oops:

[Jens01]

Delphi-Quellcode:

 DockPanel ist TLMDdocksite
procedure TfrmV1.Docking;
begin
  ManualDock(DockPanel, nil, alBottom);
end;

Dragkind = dkDock
DragMode = dmAutomatic
ManualDock ist eine Methode von TForm!

Ich docke, nachdem ein Button betätigt wurde. Der Button ruft docking auf. Ansonsten habe ich keine besonderen Sachen hinsichtlich des Dockens.
Nur das Einstellen des Dockingpanels ist noch mal ein gewisser Aufwand, da ggf Buttons, Caption und Image zugeordnet werden müssen.