Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

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

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

Comments

  • 2 Comments sorted by Votes Date Added
  • 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;


  • Hi,

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