文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 194
阅读 1
收藏 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
Cocos实战篇——作品集

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

shahdza
2015/03/19
0
0
工业串口和网络软件通讯平台(SuperIO 2.1)更新发布

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

唯笑志在
2015/07/12
0
0
12个不可不知的Sublime Text应用技巧和诀窍

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

yifan326
2015/08/19
0
0
在(CListView)列表视图中添加右键菜单的方法

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

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

没有更多内容

加载失败,请刷新页面

加载更多

大数据教程(7.5)hadoop中内置rpc框架的使用教程

博主上一篇博客分享了hadoop客户端java API的使用,本章节带领小伙伴们一起来体验下hadoop的内置rpc框架。首先,由于hadoop的内置rpc框架的设计目的是为了内部的组件提供rpc访问的功能,并不...

em_aaron
8分钟前
0
0
CentOS7+git+github创建Python开发环境

1.准备CentOS7 (1)下载VMware Workstation https://pan.baidu.com/s/1miFU8mk (2)下载CentOS7镜像 https://mirrors.aliyun.com/centos/ (3)安装CentOS7系统 http://blog.51cto.com/fengyuns......

枫叶云
昨天
1
0
利用ibeetl 实现selectpicker 的三级联动

1. js 直接写在html页面上面,ibeetl 就可以动态地利用后台传上来的model List ,不需要每次点击都要ajax请求后台 2. 使用selectpicker 的时候,除了对selecct option的动态处理后,还需要 $("#...

donald121
昨天
1
0
Android SELinux avc dennied权限问题解决方法

1. 概述 SELinux是Google从android 5.0开始,强制引入的一套非常严格的权限管理机制,主要用于增强系统的安全性。 然而,在开发中,我们经常会遇到由于SELinux造成的各种权限不足,即使拥有“...

TreasureWe
昨天
3
0
阿里云ACP认证详细笔记(一)

ECS--------------------------1.云服务器Elastic Compute Service(ECS)2.Terraform:您可以使用开源工具Terraform来预配和管理ECS资源。Terraform提供一种简单机制,能够将配置文件部署...

啃不动地大坚果
昨天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部