LMD-Dock and MDI.

Comments

• Eugene Balabuev (LMD)

  February 2023

  No. Its not possible.
• Sally Peck

  March 2023

  Can you support this as a feature moving forward?
• Eugene Balabuev (LMD)

  March 2023

  MDI is generally an outdated concept. We will not going to support it. But, can you tell us, why you need it at all?
• Sally Peck

  March 2023

  I want to create a copy of an existing tab.

  
  

  Example 1.

  Notepad. create a new copied version of an existing tab. 
  

  Please tell me how to create a new tab of the same content?

  
  

  Example 2.

  Your LMD Dock demo. How would someone create a new tab?

  
  

  In d_MainFormUnit.pas, there is this - 

  
  

  function TfrmMain.CreateTextDoc: TLMDDockPanel;

  var

    memo: TMemo;

    s:    string;

  //  i: Integer;

  begin

    Result := TLMDDockPanel.Create(Self);

    try

      s := 'TextFile' + IntToStr(FNextDocId);

  //    for i := 0 to Random(10) do

  //      s := s + IntToStr(Random(10));

      s := s + '.txt';

  
  

      Result.Caption      := s;

      Result.ClientKind   := dkDocument;

      Result.OnClose      := DocClose;

      memo                := TMemo.Create(Result);

      memo.BorderStyle    := bsNone;

      memo.ScrollBars     := ssVertical;

      memo.ParentFont     := False;

      memo.Align          := alClient;

      memo.Parent         := Result;

  
  

      DockAsTabbedDoc(Result);

      Inc(FNextDocId);

    except

      Result.Free;

      raise;

    end;

  end;

  
  

    // creates tab's content manually which, should be what a MDI child should contain...
  

  end;

  
  

  Thoughts? Is there a way to pass a form instead of putting so much effort to make code?

  
  

  I have complex child window. What should I do?

  
  

  
  
• Eugene Balabuev (LMD)

  March 2023

  > Please tell me how to create a new tab of the same content?

  
  

  Just create a new dock-panel as shown in demo, dock it as you want and place a copy of your content inside it. Duplicating content is not related to docking at all. It's a general programming task, a part of your application.

  
  

  > Is there a way to pass a form instead of putting so much effort to make code?

  
  

  Yes. Demo shows how to place a TMemo inside a panel. Similarly you can place any controls(s) including forms or frames.
• Sally Peck

  March 2023

  hi,

  I want to use an existing DFM/PAS TForm inside the code. So how do I do so?

  
  

  
  
• Eugene Balabuev (LMD)

  March 2023 edited March 2023

  Just create an instance of your form (instead of shown in demo TMemo):

  
  

  var

    frm: TMyForm;

    s:   string;

  begin

    Result := TLMDDockPanel.Create(Self);

    try

      s := 'MyForm document';

  
  

      Result.Caption      := s;

      Result.ClientKind   := dkDocument;

      Result.OnClose      := DocClose;

      

      // TMyForm - is a class name of your form.

  
  

      frm        := TMyForm.Create(Result);

      frm.Align  := alClient;

      frm.Parent := Result;

  
  

      DockAsTabbedDoc(Result);

      Inc(FNextDocId);

    except

      Result.Free;

      raise;

    end;

  end;