文档章节

TMainMenu 类[三] - 手动建立菜单(1)

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 227
阅读 6
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//uses Menus; {我习惯在这里引用单元, 但 Menus 不行, 它会自动到 interface 区}

var
  MyMenu: TMainMenu; {声明菜单对象 MyMenu}
  Item: TMenuItem;   {虽然菜单项不止一个, 但可以只声明一个变量; 因为建立对象后, 上层会统一管理}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyMenu := TMainMenu.Create(Self); {属主参数定为 Self 就不用想着释放了}
  Self.Menu := MyMenu;              {让主窗口使用这个菜单}

  Item := TMenuItem.Create(MyMenu); {属主给 MyMenu 或 Self 都一样; 但如果 nil 就要想着手动释放}
  Item.Caption := 'AA';             {设定 Caption 是必要的, 不然会显示空菜单项}
  MyMenu.Items.Add(Item);

  Item := TMenuItem.Create(MyMenu); {上一个菜单已被 MyMenu 管理, 可以用 Item 创建其他对象}
  Item.Caption := 'BB';
  MyMenu.Items.Add(Item);

  Item := TMenuItem.Create(MyMenu);
  Item.Caption := 'CC';
  MyMenu.Items.Add(Item);
end;

end.

 
 
 
 
 

 

 

  
效果如下:


本文转载自:http://www.cnblogs.com/del/archive/2008/02/04/1064196.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
netbeans maven项目问题汇总

一、建立了maven->WEB应用程序,WEB 页一项下看不到WEB-INF文件夹,自己手动建立即可,如果复制别的WEB-INF文件夹,web.xml也看不到,手动建立就好了。 二、如果没有src/main/resources和src...

凯文加内特
2014/03/26
0
0
在(CListView)列表视图中添加右键菜单的方法

使用弹出式菜单(PopMenu) 弹 出式菜单(PopMenu)大家都熟悉,在WIN98的桌面上单击鼠标右键弹出的菜单就是弹出式菜单。通常情况下,弹出式菜单在鼠标右键单击时弹出,当 然,也可以根据需要...

云栖希望。
2017/12/04
0
0
hadoop(06)、使用Eclipse开发Hadoop的MapReduce项目

本文实践源代码的码云地址: https://gitee.com/MaxBill/HMRP 在上文《hadoop(05)、使用Eclipse连接远程Hadoop集群》中我们主要实践了使用Eclispe开发工具安 装hadoop的开发插件,并且使用h...

MaxBill
2017/12/28
0
0
ExtJS4.x中创建MVC结构客户端程序

ExtJS4.x推荐数据在页面的呈现可以选择采用MVC结构。当采用ExtJS的MVC结构时,需要配置好MVC层(model,controller,view三层)中的各个类,这样在加载controller层时,ExtJS会帮我们注册、初...

李词超
2013/10/22
0
0
金蝶软件系统管理与维护常见问题

有的用户对金蝶软件系统管理与维护的工作内容不是很了解,小编这里举个栗子,生动形象的解释一下系统管理与维护。我们把一款金蝶软件当成一个人,人就需要运动和思考了,然后就要消耗能量,也...

石沉大海
2016/11/15
19
0

没有更多内容

加载失败,请刷新页面

加载更多

ERC1155实践|区块链游戏的平行宇宙和为此而生的Enjin钱包

1 摘要 恩金(Enjin)花了大半年的时间一直在完善ERC-1155这个通证协议,毫不夸张地说,该标准是现有以太坊上最适用于游戏资产的通证标准,将主流游戏中道具涉及到的一切操作经过高度抽象之后...

HiBlock
25分钟前
0
0
Oracle发布开源的轻量级 Java 微服务框架 Helidon

近日,Oracle推出了一个新的开源框架Helidon,该项目是一个用于创建基于微服务的应用程序的Java库集合。和Payara Micro、Thorntail(之前的WildFly Swarm)、OpenLiberty、TomEE等项目一样,...

关注公众号_搜云库_每天更新
31分钟前
0
0
启动线程以及安全终止线程

启动 使用start()方法可以启动线程。 start()方法的含义是告知线程规划器线程已初始化完毕,可以分给这个线程时间片了(执行run()方法)。 安全终止线程 示例代码 import java.util.concurr...

karma123
37分钟前
1
0
Python+OpenCV 图像风格迁移(模仿名画)

现在很多人都喜欢拍照(自拍)。有限的滤镜和装饰玩多了也会腻,所以就有 APP 提供了模仿名画风格的功能,比如 prisma、versa 等,可以把你的照片变成 梵高、毕加索、蒙克 等大师的风格。 这...

crossin
41分钟前
1
0
karabiner json语法

karabiner json语法 to_if_alone 如果同时制定了to, 那么to对应的key必须是非可见字符,例如control,shift或者command, 为什么呢? If to events are specified, to events are released befo...

黄威
42分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部