function HideMenu(MenuName:string):integer; Var FindItem :TMenuItem; begin FindItem := TMenuItem(FindComponent(MenuName)); if FindItem is nil then begin Result := -1; exit end else begin FindItem.Visible := false; FindItem.Enabled := false; Result := 0; end; end;
假设不能保证所查找的菜单是否存在,则加判断语句。
Var FindItem :TMenuItem;
begin
FindItem := TMenuItem(FindComponent(MenuName));
if FindItem is nil then
begin
Result := -1;
exit
end
else
begin
FindItem.Visible := false;
FindItem.Enabled := false;
Result := 0;
end;
end;