This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.

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

Schelhorn OWiG Software GmbHSchelhorn OWiG Software GmbH
in LMD-Tools
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

  • Schelhorn OWiG Software GmbHSchelhorn 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)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.
Sign In or Register to comment.