unigui中falcon組件實現類似adminlte的menu功能

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;

結果。