文档章节

TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 132
阅读 2
收藏 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}

var
  MyMenu: TMainMenu;
  Item: TMenuItem;

procedure TForm1.FormCreate(Sender: TObject);
var
  Itemd: TMenuItem;
begin
  MyMenu := TMainMenu.Create(Self);
  MyMenu.AutoHotkeys := maManual;      {指定为手动加速键; 默认是自动添加的}
  Self.Menu := MyMenu;


  Item := TMenuItem.Create(MyMenu);
  Item.Caption := 'AA';                {这个没设加速键}
  MyMenu.Items.Add(Item);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := 'A&1';            {指定加速键为: Alt+1}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(Item);
    Itemd.Caption := 'A&2';            {指定加速键为: Alt+2}
    Item.Add(Itemd);
end;

end.

 
 
 
 
 

 

 

  
效果图:


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

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
Ubuntu下NVIDIA驱动安装及3D桌面的设置

NVIDIA驱动位与Ubuntu软件仓库的 "restricted" 模块中.因此,在准备安装该驱动前,请在您的系统中允许restricted模块。 1.选择屏幕上方的 System 系统菜单。 2.选择 Administration 管理工具,...

JavaGG ⋅ 2009/05/23 ⋅ 0

数控车(FANUC系统)机床对刀步骤

  一、开机   1)打开机床电源;   2)打开数控系统电源;   3)打开急停开关   二、主轴转速的设定   u将工作方式置于“MDI”模式;   u按下“程序键”;   u按下屏幕下方的...

UG数控编程 ⋅ 06/06 ⋅ 0

滑动菜单栏SlidingMenu动画效果的实现

经过上一篇文章的学习,相信大家对开源项目SlidingMenu的用法已经有了一个非常深入的了解,那么这一章博 主就来教大家滑动菜单栏滑动时动画效果的实现。博主这里用了三个不同动画效果的基础示...

程序袁_绪龙 ⋅ 2015/07/18 ⋅ 0

Sublime Text 菜单文件格式说明+修改心得(赵亮-碧海情天theforever)

赵亮-碧海情天imzl # live.com 接触ST好一阵子,一直只是一般性地使用,和有时对菜单的CAPTION进行汉化。但随着安装的插件增多,有的下拉菜单已经太长了,势必需要对菜单进行重组了。按照菜单...

赵亮-碧海情天 ⋅ 2013/12/23 ⋅ 3

BIOS设置中功能的翻译及介绍

BIOS设置中功能的翻译及介绍 进入了AWARD BIOS CMOS设定工具, 屏幕上会显示主菜单。主菜单共提供了十二种设定功能和两种退出选择。可通过方向键选择功能项目,按键可进入子菜单(不要告诉我不知...

余二五 ⋅ 2017/11/15 ⋅ 0

Dell PERC5/6 RAID配置中文手册

Dell PERC5/6 RAID配置中文手册 摘录于http://www.dell.com/support/article/SLN272612/zh 更多知识请搜索 DELL知识库 创建逻辑磁盘 进入PERC5/6阵列卡的方式:在开机自检的过程中,看到Ctr...

技术小甜 ⋅ 2017/11/09 ⋅ 0

问题解决之道:网页浏览很慢、卡,Flash老提示崩溃

据说是新版Flash的一个问题,解决方法一般有三种,我推荐第三种: 1. 降低Flash版本。 2. 更改Flash设置。 在Flash内容正常浏览的情况下,右击Flash动画,选择“设置”,取消“硬件加速”前面...

乔三爷 ⋅ 2016/04/23 ⋅ 0

新手上路之Hibernate(二):基本映射以及一些原则与主键生成策略

一、什么是映射 在上一篇文章中 新手上路之Hibernate:第一个Hibernate例子,通过一个例子了解了什么是hibernate。而其中最重要的就是通过User.hbm.xml来配置映射。这里所说的映射就是对象关...

Airship ⋅ 2016/12/12 ⋅ 0

如何在ChemDraw中绘制透视图形

ChemDraw虽然是一款常用的化学图形绘制软件,但是很多的用户对其使用还是了解的不多,因此,我们希望通过做一些教程来给大家做个参照。本教程将如何用ChemDraw软件绘制霍沃思(Haworth)D-葡...

学术研究软件 ⋅ 2016/04/13 ⋅ 0

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

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

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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

解决httpclient超时设置不生效的问题

最近公司有项目需要通过http调用第三方服务,且第三方服务偶有超时,故需要设置一定的超时时间防止不响应的情况出现。 初始设置如下: [java] view plain copy //超时设置 RequestConfig re...

Mr_Tea伯奕 ⋅ 4分钟前 ⋅ 0

过滤器Filter和拦截器HandlerInterceptor

过滤器 依赖于servlet容器。在实现上基于函数回调,可以对几乎所有请求进行过滤,但是缺点是一个过滤器实例只能在容器初始化时调用一次。使用过滤器的目的是用来做一些过滤操作,获取我们想要...

hutaishi ⋅ 9分钟前 ⋅ 0

Redis入门详解(转)

Redis入门详解 Redis简介 Redis安装 Redis配置 Redis数据类型 Redis功能 持久化 主从复制 事务支持 发布订阅 管道 虚拟内存 Redis性能 Redis部署 Redis应用场景 Redis总结 Redis简介: Redi...

xiaoyaoyoufang ⋅ 21分钟前 ⋅ 0

说说javascript中的那些专业名词

DOM(Document Object Model) 文档对象模型 BOM(Browser Object Model) 浏览器对象模型 ECMA(European Computer Manufacturer's Association) 欧洲计算机制造商协会 W3C(World Wide Web Conso......

hang1989 ⋅ 41分钟前 ⋅ 0

Bootstrap Wizard 多步表单控件

废话 有一块需求是 有多步表单 点击下一步时触发验证一个范围内的表单,点击上一步或取消,清空表单并返回第一步,点击最后一步提交整个表单的 就找到了这个插件,本来自己写了一个原生的 fo...

无极之岚 ⋅ 56分钟前 ⋅ 0

如何利用Spring Cloud构建起自我修复型分布式系统

利用Netflix所打造的组件及各类大家熟知的工具,我们完全可以顺利应对由微服务以及分布式计算所带来的技术挑战。 在过去一年当中,微服务已经成为软件架构领域一个炙手可热的新名词,而且我们...

harries ⋅ 今天 ⋅ 0

临近实习前的感想

再过两星期就要开始新的一段实习了,想想去年的这个时候也在实习,心中不免思绪万千,也一直想写对2017做个总结,但一直迟迟没有下笔。 2017年的春节,我就开始准备开学后找份实习。那时候就...

无精疯 ⋅ 今天 ⋅ 0

Spring AOP(面向切面编程)

Spring AOP概念: Spring AOP 可以劫持一个执行的方法,在方法执行之前或之后添加额外的功能。通常情况下,AOP把项目中需要在多处用到的功能,比如日志、安全和事物等集中到一个类中处理,而...

霍淇滨 ⋅ 今天 ⋅ 0

人工智能、机器学习、数据挖掘以及数据分析有什么联系?

人工智能是目前炙手可热的一个领域,所有的互联网公司以及各路大迦们纷纷表态人工智能将是下一个时代的革命性技术,可与互联网、移动互联网时代的变更相媲美;AlphaGo在围棋领域战胜人类最顶...

董黎明 ⋅ 今天 ⋅ 0

使用 vue-cli 搭建项目

vue-cli 是一个官方发布 vue.js 项目脚手架,使用 vue-cli 可以快速创建 vue 项目,GitHub地址是:https://github.com/vuejs/vue-cli 一、 安装 node.js 首先需要安装node环境,可以直接到中...

初学者的优化 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部