文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 227
阅读 22
收藏 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

涂孟超
粉丝 13
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
加载中

评论(0)

IDEA中使用mybatis逆向工程

  如果使用过mybatis的人就会发现,当我们使用mybatis时,我们每次都需要自己手动创建实体类,映射文件(当然你也可以用注释),还有接口来进行使用,这样手动创建非常的繁琐,mybatis考虑...

osc_6pr34qkg
2019/07/24
6
0
4、wxWidgets菜单和工具栏

一、菜单 下面是一个简单的菜单实例: main.h 1 #include <wx/wx.h> 2 #include <wx/menu.h> 3 //定义主窗口类 4 class MyApp : public wxApp 5 { 6 public: 7 virtual bool OnInit(); 8 };......

osc_nmgdty43
2018/09/04
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
326
0
Windows下Git的下载、安装、设置用户名和邮箱、创建版本库等

Git官网:https://git-scm.com/ 一、Git下载 官网首页下载,当前最新版本:2.24.1 本人下载的是Git for Windows版本:Git-2.24.1.2-64-bit.exe 二、安装 基本上按照默认选项安装即可。 安装成...

gdjlc
2019/12/23
0
0

没有更多内容

加载失败,请刷新页面

加载更多

如何限制利用spring boot 框架自动限制上传文件

spring:   application:     name: appname   servlet:     multipart:       enabled: true       max-file-size: 512MB       max-request-size: 512MB @Ex...

osc_31d5oo2i
30分钟前
24
0
NATAPP1分钟快速新手图文教程(远程办公程序员联调神器)

NATAPP官方地址:https://natapp.cn/ 应用场景:前后端异地联调、系统演示、远程临时访问 首先在本站注册账号 点击注册 登录后,点击左边 购买隧道,免费/付费均可 根据需要选择隧道协议,这里以...

明德先生
32分钟前
16
0
李子柒的视频为什么这么吸引人?对她在B站上发布的视频进行分析

前言 本文的文字及图片来源于网络,仅供学习、交流使用,不具有任何商业用途,版权归原作者所有,如有问题请及时联系我们以作处理。 作者:CDA数据分析师 加企鹅群695185429即可免费获取,资料全...

osc_tc2z9lbh
32分钟前
25
0
MySQL如何有效的存储IP地址

前几天,阿淼的一个朋友去面试,他回来告诉我,面试官问他 IP 地址是怎么存在数据库的?他当时也没多想,直接就回答的存字符串啊(心想:这么简单的问题,怕不是看不起我吧) 前面这段权当看...

osc_q5m9dzk0
34分钟前
32
0
一口气说出8种幂等性解决重复提交的方案,面试官懵了!

1.什么是幂等 在我们编程中常见幂等 1)select查询天然幂等 2)delete删除也是幂等,删除同一个多次效果一样 3)update直接更新某个值的,幂等 4)update更新累加操作的,非幂等 5)insert非幂等操作...

osc_kd8rd7b3
35分钟前
16
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部