文档章节

TMainMenu 类[三] - 手动建立菜单(6) : 更换菜单

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 194
阅读 1
收藏 0
点赞 0
评论 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  MyMenu1,MyMenu2: TMainMenu;
  Item: TMenuItem;


procedure TForm1.FormCreate(Sender: TObject);
begin
  {建立第一个菜单}
  MyMenu1 := TMainMenu.Create(Self);
  MyMenu1.AutoHotkeys := maManual;

  Item := TMenuItem.Create(MyMenu1);
  Item.Caption := 'AA';
  MyMenu1.Items.Add(Item);

  Item := TMenuItem.Create(MyMenu1);
  Item.Caption := 'BB';
  MyMenu1.Items.Add(Item);

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


  {建立第二个菜单}
  MyMenu2 := TMainMenu.Create(Self);
  MyMenu2.AutoHotkeys := maManual;

  Item := TMenuItem.Create(MyMenu2);
  Item.Caption := 'XX';
  MyMenu2.Items.Add(Item);

  Item := TMenuItem.Create(MyMenu2);
  Item.Caption := 'YY';
  MyMenu2.Items.Add(Item);

  Item := TMenuItem.Create(MyMenu2);
  Item.Caption := 'ZZ';
  MyMenu2.Items.Add(Item);


  Self.Menu := nil; {当前 Form 没有指向任何一个菜单}
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Menu := MyMenu1; {指向第一个菜单}
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  Self.Menu := MyMenu2; {指向第二个菜单}
end;

end.

 
 
 
 
 

 

 

  
效果图:


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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
cocos2d-x项目101次相遇: Scenes , Director, Layers, Sprites

cocos2d-x 101次相遇 / 目录 1 安装和环境搭建 -xcode 2 Scenes , Director, Layers, Sprites 3 建立图片菜单 4 在HelloWorld上--建立新场景 5 增加一个精灵sprite 5.1 缩小sprite并使...

中游学院
2014/04/30
0
0
在(CListView)列表视图中添加右键菜单的方法

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

云栖希望。
2017/12/04
0
0
12个不可不知的Sublime Text应用技巧和诀窍

选择 以下是一些Sublime Text选择文本的快捷键: 选中一个单词 选中一行 全选 Ctrl + Command + M` 选中括号内所有内容 (编写CSS或JS时非常实用) Sublime Text还支持一次选中多行的操作:Fur...

yifan326
2015/08/19
0
0
Cocos实战篇——作品集

【唠叨】 之前学校的WP课程大作业需要交好几个WP应用,所以随手写了几个游戏。 现在有空,把它分享给大家。 【小游戏目录】 CrazyDodge PaperPlane Sudoku 【CrazyDodge】 0、源码 https://...

shahdza
2015/03/19
0
0
Android 中 MenuInflater 的使用

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

阿酷
2011/11/02
306
0
Sublime Text 12个不可不知的应用技巧和诀窍

本文为您提供Sublime Text编辑器的12个技巧和诀窍,深入挖掘这个看似简洁的代码编辑器,背后所隐藏的实现各种高级功能的无限可能。 1) 选择 以下是一些Sublime Text选择文本的快捷键: 选中一...

顽Shi
2014/05/27
0
0
Android高手进阶教程(六)之----Android 中MenuInflater的使用(布局定义菜单)!

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

迷途d书童
2012/03/02
497
0
更改IE浏览器默认的源文件编辑器

更改IE浏览器默认的源文件编辑器 用户在浏览网页时,如果在网页中单击鼠标右键并选择菜单中的“查看源文件”选项后,系统就会调用记事本打开该网页的HTML源文件,用户可以通过修改注册表来更...

Minho
2012/02/10
0
0
工业串口和网络软件通讯平台(SuperIO 2.1)更新发布

SuperIO 2.1下载 一、SuperIO 的特点: 1) 能够很快的构建自己的通讯平台软件,包括主程序。 2) 设备模块化开发,通过配制文件挂载,即可在平台软件下运行。 3) 设备模块同时支持COM和TCP两种...

唯笑志在
2015/07/12
0
0
Android 用户界面---菜单(Menus 三)

弹出菜单是停靠在一个View上的一个模式菜单。如果View对象下方有空间,那么弹出菜单将显示在停靠对象的下方,否则会显示在上方。这是非常有用的: 1. 给指定内容的操作提供一个溢出式菜单(如...

长平狐
2012/10/16
562
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

PostgresSQL 查看当前schema下所有的函数/存储过程

selectroutine_name from information_schema.routineswhere routine_catalog = 'YourDBName'and routine_schema = 'YourSchemaName'order by routine_name;...

Leyxiao
5分钟前
0
0
去除bootstrapValidator 的校验结果

$("#form").data('bootstrapValidator').destroy();//会报没有这个方法,很奇怪 $('#form').data('bootstrapValidator',null); $('#form').bootstrapValidator();...

暗中观察
6分钟前
0
0
java环境安装

1、首先下载jdk安装包,一般去官网,官网需要登录才可以下载。 2、下载完成双击运行,想改路径改下路径,比较简单。安装jdk安装完,会弹出个窗口,提示开始安装jre的位置,我这里窗口比较奇葩...

朝如青丝暮成雪
8分钟前
0
0
Linux Command

Copy with progress rsync -r --progress source dest

Lyle_W
9分钟前
0
0
个灯数据营销,帮你找回被浪费的广告费

近日,个灯受邀出席被喻为广告营销业界的年度盛会——第八届梅花网传播业大展北京站的活动。 在展会上,个灯总经理严雯婷女士带来了《数据增能,营销智能》的主题演讲,以理论与实践相结合的...

个推
11分钟前
0
0
java的反射机制理解

一、概念说明 java的反射机制,是在运行状态下,可以动态获取任意一个类的属性和方法;可以动态调用一个对象任意方法; 二、反射相关类 java.lang.Class; //类 java.lang.re...

盼望明天
15分钟前
0
0
nginx反向代理-多端口映射

代码解释 1.1 http:www.baidu.test.com默认是80,访问“/”利用反向代理,然后访问本地8083; 1.2 8083代表本地的前端工程访问地址,前端需要访问后台数据,”/”,继续代理到后台地址9803; ...

lilugirl
16分钟前
0
0
Jfinal使用log4j2打印日志

1,添加maven配置 <properties><log4j2.version>2.11.0</log4j2.version><slf4j.version>1.7.25</slf4j.version></properties> <!--slf4j及log4j2日志 --><dependency> ......

iborder
17分钟前
0
0
如何在Rancher 2.0上快速部署Datadog

Datadog是一种流行的托管监控解决方案,用于聚合和分析分布式系统的指标和事件。从基础架构集成到协作仪表板,Datadog为用户提供了一个简洁的单一窗格视图,用户可以快速查看对其最重要的信息...

RancherLabs
20分钟前
0
0
Java示例演示Functor 和monad

This article was initially an appendix in our Reactive Programming with RxJavabook. However introduction to monads, albeit very much related to reactive programming, didn't suit......

Quan全
38分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部