代码改变世界

[Delphi]TdxBarPopupMenu中使用代码增加新的条目

2013-04-09 15:40  lilooo  阅读(481)  评论(0)  编辑  收藏  举报 
1. 创建新的条目
var
  item_about: TdxBarButton;
begin
  item_about := TdxBarButton.Create(pmHelp);
  item_about.Caption := '关于(&A)';
end;
2. 显示到特定位置
var
  item_about: TdxBarButton;
begin
  item_about := TdxBarButton.Create(pmHelp);
  item_about.OnClick := doOnAbout;
  item_about.Caption := '关于(&A)'; 
  TdxBarItemLink(pmHelp.ItemLinks.Insert(1)).Item := item_about;
end;