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;