Delphi LMD Dockingpack how to create a panel at runtime

Question

I am using LMD DockingPack or should say just starting to, I am having difficulties trying to find a clear example of how to create through code a docking panel at runtime.

I would like to create a docked and or a floating panel.

any help would be much appreciated.

Thank you.

Just to add to this, I have two examples of what I am trying to do.

The first one is the LMD Dock that does not work the second on is the Devexpress one that does work.

Procedure TOXMain.CustomerPanel;
Var
  OXFrame : TOXCustomerFrame;
  CP : TLMDDockPanel;
  zn: TLMDDockZone;
  Site: TLMDDockSite;
Begin
    CP := TLMDDockPanel.Create(Self);
    zn := Site.SpaceZone;
    while (zn <> nil) and (zn.Kind <> zkTabs) and (zn.ZoneCount > 0) do
    zn := zn[0];
    if zn <> nil then
    Site.DockControl(OXDashPanel, zn, alClient, -1 , true);
End;
but it produces an access violation.



Procedure TOXMainForm.QuotePanel;
Var
  OXFrame : TOXQuoteFrame;
  CP : TdxDockPanel;
Begin
  CP := TdxDockPanel.Create(Self);
  CP.Height := 800;
  CP.Width := 850;
  CP.Caption := 'Quote';
  CP.DockTo(OXDashboard, dtClient, -1);
  OXFrame := TOXQuoteFrame.Create(Self);
  OXFrame.Name := '';
  OXFrame.Parent := CP;
  Visible := True;
End;

question from:https://stackoverflow.com/questions/65838072/delphi-lmd-dockingpack-how-to-create-a-panel-at-runtime

Answer 1

Waitting for answers