读书人

delphi 中怎么用 Components控制MainM

发布时间: 2013-07-21 21:55:43 作者: rapoo

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;

读书人网 >.NET

热点推荐