Delphi菜单组件TMainMenu使用方法详解
<p>本文为大家分享了菜单组件TMainMenud的使用方法，供大家参考，具体内容如下</p><p><strong>菜单组件TMainMenu</strong></p>
<p>创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491219.png" /></p>
<p>菜单中添加分割线只需加“-”就可以添加一个分割线</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491220.png" /></p>
<p><strong>级联菜单的设计</strong></p>
<p>单击鼠标右键弹出菜单中选择Create Submenu菜单项</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491221.png" /></p>
<p><strong>单选功能设计</strong></p>
<p>要在设计的菜单项目中选择RadioItem属性为True，Checked属性为True</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491222.png" /></p>
<p><strong>复选功能的设计</strong></p>
<p>在设计菜单项目中选择RadioItem属性为False，Checked属性为True</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491223.png" /></p>
<p>动态创建菜单</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491324.png" /></p>
<p>源代码如下</p>
<div class="jb51code">
<pre class="brush:csharp;">
procedure TForm1.Button1Click(Sender: TObject);
var
MainMenu: TMainMenu;
MenuItem: TMenuItem;
begin
//主菜单创建
MainMenu:=TMainMenu.Create(self);
Self.Menu:=MainMenu;
//文件菜单创建
MenuItem:= TMenuItem.Create(MainMenu);
MenuItem.Caption:='文件';
MainMenu.Items.Add(MenuItem);
//新建子菜单创建
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='新建';
MainMenu.Items.Add(MenuItem);
//子菜单中的子菜单创建
MenuItem:= TMenuItem.Create(MainMenu);
MenuItem.Caption:='打开';
MainMenu.Items.Items.Add(MenuItem);
MenuItem:= TMenuItem.Create(MainMenu);
MenuItem.Caption:='保存';
MainMenu.Items.Items.Add(MenuItem);
end;
end.</pre>
</div>
<p><strong>为主菜单添加图标</strong></p>
<p> 为菜单添加图标，首先用TImagaList组件为菜单指定好图标，将菜单中的Images属性设为ImageList1，然后选择要添加的图标索引。如图所示：</p>
<p style="text-align: center"><img alt="" src="https://img.jbzj.com/file_images/article/201711/2017113011491325.png" /></p>
<p>以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持琼殿技术社区。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>Delphi编程常用快捷键大全</li><li>初探Delphi中的插件编程</li><li>C# 调用Delphi dll 实例代码</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]