unigui中falcon组件实现类似adminlte的menu功能

最新推荐文章于 2025-10-16 15:57:04 发布

原创最新推荐文章于 2025-10-16 15:57:04 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#unitreemenu #adminlte

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

unigui

60 篇文章

订阅专栏

本文介绍在Delphi中如何通过修改窗体的菜单项属性实现不同功能的响应，并展示了如何使用unitreemenu组件进行属性设置。此外，还详细解释了如何根据菜单选择动态创建TabSheet并加载相应的TFrame组件，实现多标签页的应用界面管理。

1、加入如下几个pas文件。

D:\riosource\uniproject\classes\FS.Abas.pas

D:\riosource\uniproject\dm\uDmAcessos.pas

D:\riosource\uniproject\dm\uDmImagens.pas

D:\riosource\uniproject\dm\uDmToast.pas

打开D:\riosource\uniproject\dm\uDmAcessos.pas的窗体。修改menu的items属性。

unitreemenu组件的主要的相关属性设置。

procedure TMainForm.menAcessoClick(Sender: TObject);
var
  Nd : TUniTreeNode;  
begin
  Nd := menAcesso.Selected;
  if Nd.Text='公司管理' then
  begin
    NovaAba(TFrame(TunifCompanyList), '公司管理', True);
    Exit;
  end;
end;

procedure TMainForm.NovaAba(nomeFormFrame: TFrame; descFormFrame: string; Fechar: Boolean);
var
  TabSheet: TUniTabSheet;
  FCurrentFrame: TUniFrame;
  I: Integer;
begin

  pagePrincipal.Visible := True;

      {Verificando se a tela j?est?aberto e redireciona a ela}
  for I := 0 to pagePrincipal.PageCount - 1 do
    with pagePrincipal do
      if Pages[I].Caption = descFormFrame then
      begin
        pagePrincipal.ActivePageIndex := I;
        Exit;
      end;

  TabSheet := TUniTabSheet.Create(Self);
  TabSheet.PageControl := pagePrincipal;
  TabSheet.Caption := descFormFrame;
  TabSheet.Closable := Fechar;

  FCurrentFrame := TUniFrameClass(nomeFormFrame).Create(Self);

  with FCurrentFrame do
  begin
    Align := alClient;
    Parent := TabSheet;
  end;

  Refresh;

  pagePrincipal.ActivePage := TabSheet;
end;

结果。