Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:10:22 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);beginif i = 1 thenbeginMainMenu1.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;endelsebeginMainMenu1.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;
赞