chapt12.htm

来自「delphi编程指南」· HTM 代码 · 共 37 行

HTM
37 行
字号 
<html><head><title>第十二章  菜单的创建与管理</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#00000" text="#00cc66"><p align="center"><b><font color="#FF9999" size="4">第十二章 菜单的创建与管理 </font></b></p><p><b> 12.5.1 增加项目到菜单</b><br>  　 动态增加菜单项可以使用TMenuItem对象的Add函数或Insert函数。使用Add对象函数，在当前菜单的尾部增加一个菜单项,函数原型为：<br>  procedure Add(Item: TMenuItem);<br>  　 这里，Item指定要增加的菜单项。下例是当用户如单击Button1按钮时，增加一个新菜单项到File菜单的尾部的过程：<br>  procedure Form1.Button1Click(Sender: TSender);<br>  var NewItem: TMenuItem; <br>  begin <br>  　 NewItem := TMenuItem.Create(Self);<br>  　 NewItem.Caption := 'New item'; <br>  　 File.Add(NewItem);<br>  end;<br>  　 使用Insert对象函数在一个指定菜单项前插入一个菜单项，其原型为：<br>  procedure Insert(Index: Integer; Item: TMenuItem);<br>  　 这里Index指定插入的菜单项序号（从0开始数），Item是要插入的菜单项。下例是当用户如单击Button1按钮时，插入一个新菜单项到WindowMenu菜单第一条菜单项之后的过程：<br>  procedure TForm1.Button1Click(Sender: TObject);<br>  var NewItem: TMenuItem;<br>  begin <br>  　NewItem := TMenuItem.Create(WindowMenu); {Creates the new menu item} <br>  　 NewItem.Caption := 'My Menu Command'; {Caption for the new menu item} <br>  　 WindowMenu.Insert(1, NewItem); {Inserts the new menu item}<br>  end;<br>  <b>12.5.2 删除菜单项</b><br>  　 要删除一个菜单项，可以使用TMenuItem对象的Delete函数。其函数原型为： <br>  procedure Delete(Index: Integer);<br>  　 这里，Index指定要删除项目的序号（从0开始数）。比如，要删除WindowMenu菜单下的第2条菜单，可以编写如下语句：<br>  　 WindowMenu.Delete(1); </p></body></html>

chapt12.htm - 源码说明

本页面展示了「delphi编程指南」中的 chapt12.htm 源码文件，采用 HTM 编程语言编写，共 37 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?