文档章节

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
Visual Paradigm(三)Working with Diagrams

版权声明:本文为博主chszs的原创文章,未经博主允许不得转载。 https://blog.csdn.net/chszs/article/details/1331749 第三章 Working with Diagrams 本章将向你展示怎样用VP-UML完成各项工...

chszs
2006/10/12
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

没有更多内容

加载失败,请刷新页面

加载更多

月入3万之一个程序员的转行坎坷历程

陈年往事 “我月入3万,怎么会少少了你一个鸡蛋啊?” 这是2017年9月左右的一个新闻,一位煎饼摊大妈因和顾客争执时脱口而出这样一句话而走红。当时还上了各大新闻的头条。 互联网兴起今天,...

苏南-首席填坑官
20分钟前
1
1
OSChina 周一乱弹 —— 眼看着这颗陨石砸了下来

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子:分享Nachtblut的单曲《Antik》 《Antik》- Nachtblut 手机党少年们想听歌,请使劲儿戳(这里) @mr_chip :上海的初雪之后有点冷 ...

小小编辑
45分钟前
125
7
Confluence 6 修改导航显示选项

选择 子页面(Child pages)来在边栏中查看当前页面的子页面。 选择 页面树(Page tree)来查看整个空间的页面树,扩展当前的页面。 你也可以选择是否完全隐藏导航显示选项或者添加你希望可见...

honeymose
今天
2
0
Ubuntu18.04 安装MySQL

1.安装MySQL sudo apt-get install mysql-server 2.配置MySQL sudo mysql_secure_installation 3.设置MySQL非root用户 设置原因:配置过程为系统root权限,在构建MySQL连接时出现错误:ERROR...

AI_SKI
今天
3
0
3.6 rc脚本(start方法) 3.7 rc脚本(stop和status方法) 3.8 rc脚本(以daemon方式启动)

3.6-3.7 rc脚本(start、stop和status方法) #!/usr/bin/env python# -*- coding: utf-8 -*-# [@Version](https://my.oschina.net/u/931210) : python 2.7# [@Time](https://my.oschina.......

隐匿的蚂蚁
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部