文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 227
阅读 6
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
netbeans maven项目问题汇总

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

凯文加内特 ⋅ 2014/03/26 ⋅ 0

在(CListView)列表视图中添加右键菜单的方法

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

云栖希望。 ⋅ 2017/12/04 ⋅ 0

金蝶软件系统管理与维护常见问题

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

石沉大海 ⋅ 2016/11/15 ⋅ 0

ExtJS4.x中创建MVC结构客户端程序

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

李词超 ⋅ 2013/10/22 ⋅ 0

IntelliJ IDEA 12详细开发教程(一)思想的转变与新手入门

从事软件开发工作以来,提高自己的开发效率,提高自己编码的规范,提高编码深度层次,这三样一直都是自己努力去追求的事情。 最近在研究新的开发工具,摆脱了eclipse。现在我要跟各位开发人员...

Galy_绿 ⋅ 2015/12/08 ⋅ 0

SJV框架开发教程

目录 第一章 SJV框架概述 1 第二章 开发准备 2 一、 JDK安装 2 二、 Tomcat安装 2 三、 MySQL安装 2 四、 Eclipse IDE安装 2 五、 Eclipse Tomcat插件安装 2 第三章 SJV框架快速上手 3 一、 ...

Nemo ⋅ 2015/11/24 ⋅ 0

zqw/MultiServicer

MulitServicer由以下程序组成: 1、通用服务器wefeelServer.exe:主程序,即可直接执行(运行wefeelserver.exe),也可作为服务执行,还可配置服务(设置WefeelServer服务.bat)。 2、通用短信插...

zqw ⋅ 2015/02/11 ⋅ 0

Android 中 MenuInflater 的使用

我们上一节讲的是LayoutInflater 的 使用,而这一节我将讲一下MenuInflater ,顾名思义,LayoutInflater 是用来解析定义在layout 下的布局文件,那么MenuInflater 是不是用来解析定义在menu ...

阿酷 ⋅ 2011/11/02 ⋅ 0

软件项目开发环境构建之五:Confluence、Jira、Bitbucket统一账户管理

在多个系统中,用一个账户能够登陆多个系统并具备角色授予的权限(所谓的单点登陆),无疑是最受人欢迎的,Atlassian软件家族可以通过多种方式来整合各系统的用户,常用的有: 1、通过统一使...

newthink ⋅ 2016/11/08 ⋅ 0

项目实录之Shiro的使用

阅读本文之前建议先阅读如下两篇文章 项目实录之Maven工程搭建 项目实录之集成Spring MVC 项目实录之集成Mybatis 一、添加相关Jar包 在项目pom.xml添如下依赖: <dependency> <groupId>tagl...

FunGa ⋅ 2015/07/29 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

645. Set Mismatch - LeetCode

Question 645. Set Mismatch Solution 思路: 遍历每个数字,然后将其应该出现的位置上的数字变为其相反数,这样如果我们再变为其相反数之前已经成负数了,说明该数字是重复数,将其将入结果r...

yysue ⋅ 15分钟前 ⋅ 0

Confluence 6 从生产环境中恢复一个测试实例

请参考 Restoring a Test Instance from Production 页面中的内容获得更多完整的说明。 很多 Confluence 的管理员将会使用生产实例运行完整数据和服务的 Confluence 服务器,同时还会设置一个...

honeymose ⋅ 19分钟前 ⋅ 0

Python这么强?红包杀手、消息撤回也可以无视,手机App辅助!

论述 标题也许有点不好理解,其实就是一款利用Python实现的可以监控微信APP内的红包与消息撤回的助手。不得不说,这确实是一款大家钟意的神器。 消息撤回是一件很让人恶心的事,毕竟人都是有...

Python燕大侠 ⋅ 31分钟前 ⋅ 0

压缩打包介绍、gzip压缩工具、bzip2压缩工具、xz压缩工具

压缩打包介绍 压缩的好处不仅能节省磁盘空间而且在传输的时候节省传输时间和网络带宽 windows系统下文件带有 .rar .zip .7z 后缀的就是压缩文件 linux系统下则是 .zip, .gz, .bz2, .xz, ...

黄昏残影 ⋅ 36分钟前 ⋅ 0

观察者模式

1.利用java原生类进行操作 package observer;import java.util.Observable;import java.util.Observer;/** * @author shadow * @Date 2016年8月12日下午7:29:31 * @Fun 观察目标 **/......

Cobbage ⋅ 38分钟前 ⋅ 0

Ubuntu打印服务器配置

参考:https://blog.csdn.net/gsls200808/article/details/50950586 https://blog.csdn.net/jiay2/article/details/80252369 https://wiki.gentoo.org/wiki/HPLIP 由于媳妇儿要大量打印资料,......

大熊猫 ⋅ 44分钟前 ⋅ 0

面试的角度诠释Java工程师(二)

原文出处: locality 续言: 相信每一位简书的作者,都会有我这样的思考:怎么写好一篇文章?或者怎么写好一篇技术类的文章?我就先说说我的感悟吧,写文章其实和写程序是一样的。为什么我会...

颖伙虫 ⋅ 47分钟前 ⋅ 0

github中SSH的Key

https://help.github.com/articles/connecting-to-github-with-ssh/ https://help.github.com/articles/testing-your-ssh-connection/ https://help.github.com/articles/adding-a-new-ssh-k......

whoisliang ⋅ 47分钟前 ⋅ 0

only_full_group_by

我的mysql是在CentOS7.1下面的5.7.17 在 /etc/my.cnf 文件里加上如下: sql_mode='NO_ENGINE_SUBSTITUTION' 然后,重启Mysql服务 systemctl restart mysqld...

SunHacker ⋅ 今天 ⋅ 0

实际项目(SpringBoot项目)中集成Druid

参考网页 https://blog.csdn.net/liuchuanhong1/article/details/55050131 https://blog.csdn.net/CoffeeAndIce/article/details/78707819 https://www.pocketdigi.com/20170530/1577.html 为......

karma123 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部