可以拉伸的菜单界面

实例说明

如果管理程序的功能菜单非常多，而用户只使用一些常用菜单，这时，可以将主菜单单项下的不常用的菜单隐藏起来。此种显示方式类似于对菜单进行拉伸。使用时，只需单击展开菜单，即可显示相应菜单功能。本例运行效果如图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;