《第9章 菜单与工具栏(做工具栏的图标、做习题)》由会员分享，可在线阅读，更多相关《第9章 菜单与工具栏(做工具栏的图标、做习题)（29页珍藏版）》请在金锄头文库上搜索。
1、9.1 菜单,9.1 菜单 9.1.1 主菜单 9.1.2 弹出式菜单9.2 工具栏 9.2.1 如何设置工具栏 9.2.2 工具栏的改进9.3 多选项卡习题10,9.1 菜单菜单可分为两种基本类型：主菜单（mainmenu）和弹出式菜单（popmenu）。,9.1.1 主菜单主菜单一般称为菜单栏，其中包括一个或多个选择项称为菜单项。当单击一个菜单项时，包含子菜单项的列表即被打开。1. 菜单编辑器,【例10-1】实现用菜单控制字幕。打开菜单编辑器，建立如图10-5所示的菜单栏。 编写代码。编写菜单项onclick事件代码。,procedure TForm1.N2Click(Sender: TO
2、bject); / “文本内容”菜单项Onclick事件代码begin label1.caption:=inputbox(输入,请输入标题板的新内容,黄河之水天上来);end;procedure TForm1.N5Click(Sender: TObject); / “宋体”菜单项Onclick事件代码begin label1.font.name:=宋体;end;,procedure TForm1.N6Click(Sender: TObject); / “隶书”菜单项Onclick事件代码begin label1.font.name:=隶书;end;procedure TForm1.N7Clic
3、k(Sender: TObject); / “楷体”菜单项Onclick事件代码begin label1.font.name:=楷体_GB2312;end;,procedure TForm1.N8Click(Sender: TObject); / “黑体”菜单项Onclick事件代码begin label1.font.name:=黑体;end;procedure TForm1.N9Click(Sender: TObject); / “粗体”菜单项Onclick事件代码begin if label1.Font.style*fsbold= then 集合交运算 label1.Font.style:
4、=label1.Font.style+fsbold else label1.Font.style:=label1.Font.style-fsbold;end;,procedure TForm1.N10Click(Sender: TObject); / “斜体”菜单项Onclick事件代码begin if label1.Font.style*fsitalic= then label1.Font.style:=label1.Font.style+fsitalic else label1.Font.style:=label1.Font.style-fsitalic;end;procedure TFo
5、rm1.N11Click(Sender: TObject); / “下划线”菜单项Onclick事件代码begin,if label1.Font.style*fsunderline= then label1.Font.style:=label1.Font.style+fsunderline else label1.Font.style:=label1.Font.style-fsunderlineend;编写按钮控件Button1的Onclick事件代码。procedure TForm1.Button1Click(Sender: TObject);begin if button1.Caption
6、=暂停 then begin button1.caption:=继续; timer1.enabled:=false;,end else begin button1.caption:=暂停; timer1.enabled:=true; end;end;编写时间控件Timer1的OnTimer事件代码。procedure TForm1.Timer1Timer(Sender: TObject);begin if label1.left+label1.width0 then label1.left:=label1.left-20 else label1.left:=form1.ClientWidth;
7、end;,2. 菜单项改进方法(1) 设置热键。(2) 添加复选标记。【例10-2】在例10-1中添加复选标记，如图10-7所示。procedure TForm1.N9Click(Sender: TObject); / “粗体”菜单项click事件代码beginif label1.Font.style*fsbold= thenbeginlabel1.Font.style:=label1.Font.style+fsbold;n9.checked:=true;end,elsebeginlabel1.Font.style:=label1.Font.style-fsbold;n9.checked:=f
8、alse;end;end;procedure TForm1.N10Click(Sender: TObject); / “斜体”菜单项click事件代码beginif label1.Font.style*fsitalic= thenbeginlabel1.Font.style:=label1.Font.style+fsitalic;n10.checked:=true;,endelsebeginlabel1.Font.style:=label1.Font.style-fsitalic;n10.checked:=false;end;end;procedure TForm1.N11Click(Send
9、er: TObject); / “下划线”菜单项click事件代码beginif label1.Font.style*fsunderline= then,beginlabel1.Font.style:=label1.Font.style+fsunderline;n11.checked:=true;endelsebeginlabel1.Font.style:=label1.Font.style-fsunderline;n11.checked:=false;end;end;,(3) 设置单选菜单项。【例10-3】在例10-2中添加单选菜单项。procedure TForm1.N5Click(Sen
10、der: TObject);begin label1.font.name:=宋体; n5.checked:=true;end;procedure TForm1.N6Click(Sender: TObject);begin label1.font.name:=隶书; n6.checked:=true;end;,procedure TForm1.N7Click(Sender: TObject);begin label1.font.name:=楷体_GB2312; n7.checked:=true;end;procedure TForm1.N8Click(Sender: TObject);begin
11、 label1.font.name:=黑体; n8.checked:=true;end;,9.1.2 弹出式菜单弹出式菜单能以更加灵活的方式为用户提供更加便利的操作，当用户在不同位置单击鼠标右键，则将显示一组不同的菜单项。popupmenu组件在组件栏中standard标签中，其设计方法与mainmenu基本相同。【例10-4】以例10-1为基础增加弹出式菜单，使得在窗体中单击鼠标右键显示文本字体的子菜单项；在label1中单击鼠标右键时显示文本风格的子菜单项（如图10-2所示）。(1) 建立两个popupmenu菜单项，poppumenu1为文本字体的子菜单项，popupmenu2为文本风格
12、的子菜单项。(2) 在form1的对象监视器中选取popupmenu属性，点击向下箭头选取popupmenu1；在label1的对象监视器中选取popupmenu属性，单击向下箭头选取popupmenu2。(3) 编辑菜单项的Onclick事件代码，同上。,9.2.1 如何设置工具栏【例10-5】在例10-2中添加工具栏按钮，如图10-10所示。(1) 在form1上添加工具栏组件ToolBar1。(2) 在工具栏上添加工具栏按钮组件 (3) 选择win32页中的imagelist组件，,(4) 编写每个工具栏按钮的Onclick事件代码：procedure TForm1.ToolButton
13、1Click(Sender: TObject);beginlabel1.font.name:=宋体;end;procedure TForm1.ToolButton2Click(Sender: TObject);beginlabel1.font.name:=隶书;end;procedure TForm1.ToolButton3Click(Sender: TObject);beginlabel1.font.name:=楷体_GB2312;end;,procedure TForm1.ToolButton4Click(Sender: TObject);beginlabel1.font.name:=黑体
14、;end;procedure TForm1.ToolButton6Click(Sender: TObject);beginif label1.Font.style*fsbold= thenbeginlabel1.Font.style:=label1.Font.style+fsbold;n9.checked:=true;n16.checked:=true;ToolButton6.down:=true;,endelsebeginlabel1.Font.style:=label1.Font.style-fsbold;n9.checked:=false;n16.checked:=false;ToolB
15、utton6.down:=false;end;end;procedure TForm1.ToolButton7Click(Sender: TObject);begin,if label1.Font.style*fsitalic= thenbeginlabel1.Font.style:=label1.Font.style+fsitalic;n10.checked:=true;n17.checked:=true;ToolButton7.down:=true;endelsebeginlabel1.Font.style:=label1.Font.style-fsitalic;n10.checked:=false;n17.checked:=false;ToolButton7.down:=false;end;end;,
