delphi 根据权限设置Treemenu的Treenode节点不可用**
trmnHomeTreeMenu.Items.FindNodeByCaption(‘’).Visible:=True;
代码实例
if UniMainModule.User.Group = ‘’ then
begin
with HomeTreeMenu.Items do
begin
FindNodeByCaption(‘’).Visible := True;
FindNodeByCaption(‘’).Visible := True;
//FindNodeByCaption(‘’).Visible := True;
FindNodeByCaption(‘’).Visible := True;
FindNodeByCaption(‘’).Visible := True;
FindNodeByCaption(‘’).Visible := True;
FindNodeByCaption(‘’).Visible := True;
end;