【结】[问题]显示功能快捷面板**

hyf1984

大哥，你没发现你给的这个链接也是我发的帖子，并且也是你回的吗？
链接说只能解决功能分配时的问题，并不能解决增加快捷功能时选择对话框显示所有功能的问题。否则的话我也不会分别发两个帖子了

jiahaiming

楼主，能否把你的主界面贴出来看看呢。

jiahaiming

如果使用的是28版本，可以修改：协同系统\面板功能\我的功能\收藏夹
在TFAVORITESDOC = class(TFormDoc)中定义一个方法
procedure TFAVORITESDOC.InsertNode(Sender: Business.System.TObject;
  ANode: Business.Model.TBaseNode; var Allow: Boolean);
begin
  Allow := not (ANode.DisplayName = '其他');
end;

在procedure TFAVORITESDOC.actAddShortCutExecute(Sender: TObject); 中，
show出lBrowseDialog之前，为其OnInserting 事件赋值：lBrowseDialog.OnInserting := InsertNode;

hyf1984

谢谢，终于整好这东西了。