delphi可以拉伸的菜单界面实例

可以拉伸的菜单界面
实例说明
如果管理程序的功能菜单非常多，而用户只使用一些常用菜单，这时，可以将主菜单单项下的不常用的菜单隐藏起来。此种显示方式类似于对菜单进行拉伸。使用时，只需单击展开菜单，即可显示相应菜单功能。本例运行效果如图1.6所示。

图1.6可以拉伸的菜单界面
技术要点
在MainMenu控件中对其下拉菜单进行显示和隐藏时，应注意下拉菜单的位置。TMainMenu组件的第一个Items为第一级菜单，第二个Items为相应菜单的索引项，他们的下标都是从0开始的。
例如：
要对菜单栏的第一列第四个菜单进行隐藏，应用如下语句：
MainMenu1.Items[0].Items[3].Visible=false；
实现过程
1.新建一个标准工程，创建一个新窗体，默认窗体的Name属性Form1。
2.在窗体防止Timage和TMainMenu组件。
3.将TMainMenu组件中的部分菜单项的Visible属性设置为False。
4.主程序代码如下：
procedure TForm1.Y1Click(Sender: TObject);
begin
if i = 1 then
begin
MainMenu1.Items[0].Items[0].Visible := true;
MainMenu1.Items[0].Items[1].Visible := true;
MainMenu1.Items[0].Items[3].Visible := true;
MainMenu1.Items[0].Items[4].Visible := true;
MainMenu1.Items[0].Items[5].Visible := true;
MainMenu1.Items[0].Items[6].Visible := true;
MainMenu1.Items[0].Items[7].Visible := true;
i := 2;
end
else
begin
MainMenu1.Items[0].Items[0].Visible := false;
MainMenu1.Items[0].Items[1].Visible := false;
MainMenu1.Items[0].Items[3].Visible := false;
MainMenu1.Items[0].Items[4].Visible := false;
MainMenu1.Items[0].Items[5].Visible := false;
MainMenu1.Items[0].Items[6].Visible := false;
MainMenu1.Items[0].Items[7].Visible := false;
i := 1;
end;
end;