I need to dock Delphi Forms in LMDDockSite. The Caption of the Form is lost in LMDDockSite

Schelhorn OWiG Software GmbH

i try to dock delphi forms (TForm) in LMDDockSite. But the Caption is not showing. If i set the Caption manually in the LMDDockPanel he is lost after undock and then redock the form

Schelhorn OWiG Software GmbH

I have found a Workaround:

After the command LMDDockSite1.DockControl i have coded the following lines:

 if APanel.inheritsfrom(TCustomForm) then

  begin

    s := (APanel as TCustomForm).caption;

    LMDDockSite1.Panels[LMDDockSite1.PanelCount-1].Caption := s;

  end;

The same in the event:

procedure TMainForm.LMDDockSite1DockDrop(Sender: TObject;

  Source: TDragDockObject; AZone: TLMDDockZone; AAlign: TAlign);

var s:String;

begin

  if Source.Control.inheritsfrom(TCustomForm) then

  begin

    s := (Source.Control as TCustomForm).caption;

    LMDDockSite1.Panels[LMDDockSite1.PanelCount-1].Caption := s;

  end;

end;

Eugene Balabuev (LMD)

Hi,

Really, this should be done automatically by LMD-DockingPack. But for some reason this was not worked. I've fixed the bug.