delphi 中怎么用 Components控制MainMenu这类东西的显示

delphi 中如何用 Components控制MainMenu这类东西的显示

Var
    i: integer;
begin
  for i:=0 to Form1.ComponentCount-1 do
  begin
    if Components[i] is TWinControl then 
      TWinControl(Components[i]).Visible := False;
  end;
  
end;

上面用TWinControl(Components[i]) 或 TControl(Components[i])来控制显示

那么菜单控件 MainMenu 应该用什么来控制呢？ 用TMainMenu(Components[i]).Visible := true;会出错。

拜托各位大侠。谢谢！ Delphi components
[解决办法]
Var    i: integer; 
begin  
for i:=0 to Form1.ComponentCount-1 do  
begin    
if Components[i] is TWinControl then       
TMenuItem(Components[i]).Visible := False;   
end;     
end;
[解决办法]
Var    i: integer; 
begin  
for i:=0 to Form1.ComponentCount-1 do  
begin    
if Components[i] is TMenuItem then       
TMenuItem(Components[i]).Visible := False;   
end;     
end; 

查看更多 下一篇