【3.Delphi常用组件】10.菜单

10.菜单

10.1 MainMenu

MainMeun（主菜单）组件也称为菜单栏。

10.1.1菜单编辑

1.在窗体中添加一个MainMenu组件

2.双击 MainMenu 组件或右击组件，选择 MenuDesigner，或者选择组件的 Items 属性，单击右侧的...按钮即可进入编辑菜单的模式，如下图：

3.选中某个菜单项，在对象编辑器中，Catption属性输入菜单名称，输入内容可以为：

&+字符 表示加速字符
- 表示分割线

4.通过右击菜单项可进行插入、删除菜单等操作

5.选择菜单项，按 Ctrl + -> 键，可以产生下一级子菜单。

10.1.2 MainMenu组件的主要属性

10.1.3 MainMenu 组件的应用示例

示例：通过菜单来控制Label的字体，界面设计如下图：

代码如下：

procedure TForm1.STClick(Sender: TObject);
begin// 宋体Label1.Font.Name := '宋体';
end;
​
procedure TForm1.YHClick(Sender: TObject);
begin// 微软雅黑Label1.Font.Name := '微软雅黑';
end;
​
procedure TForm1.FSClick(Sender: TObject);
begin// 仿宋体Label1.Font.Name := '仿宋';
end;
​
procedure TForm1.HTClick(Sender: TObject);
begin// 黑体Label1.Font.Name := '黑体';
end;
​
procedure TForm1.KTClick(Sender: TObject);
begin// 楷体Label1.Font.Name := '楷体_GB2312';
end;
​
procedure TForm1.JCClick(Sender: TObject);
begin// 加粗if JC.Checked thenLabel1.Font.Style := Label1.Font.Style - [fsBold]elseLabel1.Font.Style := Label1.Font.Style + [fsBold];JC.Checked := not JC.Checked;
end;
​
procedure TForm1.QXClick(Sender: TObject);
begin// 倾斜if QX.Checked thenLabel1.Font.Style := Label1.Font.Style - [fsItalic]elseLabel1.Font.Style := Label1.Font.Style + [fsItalic];QX.Checked := not QX.Checked;
end;
​
procedure TForm1.XHXClick(Sender: TObject);
begin// 下划线if XHX.Checked thenLabel1.Font.Style := Label1.Font.Style - [fsUnderline]elseLabel1.Font.Style := Label1.Font.Style + [fsUnderline];XHX.Checked := not XHX.Checked;
end;
​
procedure TForm1.SetFontSize(size: Integer);
beginLabel1.Font.Size := size;
end;
​
procedure TForm1.N10Click(Sender: TObject);
begin// 字号 10SetFontSize(10);
end;
​
procedure TForm1.N12Click(Sender: TObject);
begin// 字号 10SetFontSize(12);
end;
​
procedure TForm1.N14Click(Sender: TObject);
begin// 字号 14SetFontSize(14);
end;
​
procedure TForm1.N16Click(Sender: TObject);
begin// 字号 16SetFontSize(16);
end;
​
procedure TForm1.N18Click(Sender: TObject);
begin// 字号 18SetFontSize(18);
end;
​
procedure TForm1.N20Click(Sender: TObject);
begin// 字号 20SetFontSize(20);
end;
​
procedure TForm1.N22Click(Sender: TObject);
begin// 字号 22SetFontSize(22);
end;
​
procedure TForm1.N24Click(Sender: TObject);
begin// 字号 24SetFontSize(24);
end;
​
procedure TForm1.N26Click(Sender: TObject);
begin// 字号 26SetFontSize(26);
end;
​
procedure TForm1.N28Click(Sender: TObject);
begin// 字号 28SetFontSize(28);
end;
​
procedure TForm1.N30Click(Sender: TObject);
begin// 字号 30SetFontSize(30);
end;

10.2 PopupMenu

弹出式菜单组件（PopupMenu）使用方法与MainMenu相同，只需要在使用右键菜单的组件上设置 PopupMenu 属性链接到弹出式菜单即可。

示例：用弹出式菜单控制Edit中选中的文本的字体。界面如下图：

代码如下：

procedure TForm1.N1Click(Sender: TObject);
begin// 宋体Memo1.Font.Name := '宋体';
end;
​
procedure TForm1.N2Click(Sender: TObject);
begin// 黑体Memo1.Font.Name := '黑体';
end;
​
procedure TForm1.N3Click(Sender: TObject);
begin// 楷体Memo1.Font.Name := '楷体_GB2312';
end;
​
procedure TForm1.N4Click(Sender: TObject);
begin// 微软雅黑Memo1.Font.Name := '微软雅黑';
end;
​
procedure TForm1.N5Click(Sender: TObject);
begin// 仿宋Memo1.Font.Name := '仿宋';
end;

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！