devexpress折叠菜单

devexpress折叠菜单

procedure TForm2.FormCreate(Sender: TObject);
var
  pnl: TdxDockPanel;
begin
  dxDockSite1.Width := 30;
  dxDockSite1.Font.Name := '@宋体';
  dxDockSite1.Font.Size := 11;
  pnl := TdxDockPanel.Create(self);
  pnl.Caption := '基础资料';
  pnl.DockTo(dxDockSite1, dtLeft, 0);
  pnl.AutoHide := True;

  pnl := TdxDockPanel.Create(self);
  pnl.Caption := '进销存';
  pnl.DockTo(dxDockSite1, dtLeft, 1);
  pnl.AutoHide := True;
end;