如何用TdxBarManager用代码添加工具栏 TdxBarManager

风神 2021-2-12 362

var
  ABarManager: TdxBarManager;
  B1, B2: TdxBarButton;
  ABarItem: TdxBarItem;
  ALargeButton: TdxBarLargeButton;
begin
  // 创建一个 BarManager
  ABarManager := TdxBarManager.Create(Self);
  // ----------------------------------
  // 创建一个 toolbar
  with ABarManager.Bars.Add do
  begin
    DockingStyle := dsTop;
    Visible := True;
    Caption := 'Toolbar';
  end;
  // 创建一个主菜单
  with ABarManager.Bars.Add do
  begin
    DockingStyle := dsTop;
    Visible := True;
    IsMainMenu := True;
    Caption := 'Menu';
  end;
  // ----------------------------------
  // 创建一个分类
  ABarManager.Categories.Add('Main category');
  // ----------------------------------
  // create buttons
  B1 := ABarManager.AddButton;

  with B1 do
  begin
    Caption := 'BarButton 1';
    Category := ABarManager.Categories.IndexOf('Main category');
    Description := 'A button';
    Glyph.Assign(Image1.Picture.Graphic);
    OnClick := Button1Click;
  end;

  B2 := ABarManager.AddButton;
  B2.Caption := 'BarButton 2';

  ALargeButton := ABarManager.AddItem(TdxBarLargeButton) as TdxBarLargeButton;
  ALargeButton.Caption := 'LargeButton';


// 创建一个子项
  ABarItem := ABarManager.AddSubItem;
  ABarItem.Caption := '&SubMenu';
  // ----------------------------------
  // assign item links of
  // the main menu
  ABarManager.MainMenuBar.LockUpdate := True;
  ABarManager.MainMenuBar.ItemLinks.Add.Item := ABarItem;
  ABarManager.MainMenuBar.LockUpdate := False;

  // 一个子菜单
  TdxBarSubItem(ABarItem).ItemLinks.Add.Item := B1;
  with TdxBarSubItem(ABarItem).ItemLinks.Add do
  begin
    Item := B2;
    Index := 0; // make it to be the first item link of the submenu
  end;

  // 一个工具栏
  ABarManager.Bars[0].LockUpdate := True;
  ABarManager.Bars[0].ItemLinks.Add.Item := B2;
  with ABarManager.Bars[0].ItemLinks.Add do
  begin
    Item := B1;
    BeginGroup := True;
    UserPaintStyle := psCaptionGlyph;
  end;
  ABarManager.Bars[0].LockUpdate := False;

  ABarManager.Bars[0].ItemLinks.Add.Item := ALargeButton;
  // ----------------------------------
end;


上传的附件:

DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (0)
返回