文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 132
阅读 2
收藏 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
博文 2011
码字总数 14107
作品 0
深圳
程序员
Ubuntu下NVIDIA驱动安装及3D桌面的设置

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

JavaGG
2009/05/23
481
0
数控车(FANUC系统)机床对刀步骤

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

UG数控编程
06/06
0
0
Sublime Text 菜单文件格式说明+修改心得(赵亮-碧海情天theforever)

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

赵亮-碧海情天
2013/12/23
0
3
滑动菜单栏SlidingMenu动画效果的实现

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

程序袁_绪龙
2015/07/18
0
0
BIOS设置中功能的翻译及介绍

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

余二五
2017/11/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Ubuntu18.04 显卡GF-940MX安装NVIDIA-390.77

解决办法: 下面就给大家一个正确的姿势在Ubuntu上安装Nvidia驱动: (a)首先去N卡官网下载自己显卡对应的驱动:www.geforce.cn/drivers (b)下载后好放在英文路径的目录下,怎么简单怎么来...

AI_SKI
今天
1
0
深夜胡思乱想

魔兽世界 最近魔兽世界出了新版本, 周末两天升到了满级,比之前的版本体验好很多,做任务不用抢怪了,不用组队打怪也是共享拾取的。技能简化了很多,哪个亮按哪个。 运维 服务器 产品 之间的...

Firxiao
今天
1
0
MySQL 8 在 Windows 下安装及使用

MySQL 8 带来了全新的体验,比如支持 NoSQL、JSON 等,拥有比 MySQL 5.7 两倍以上的性能提升。本文讲解如何在 Windows 下安装 MySQL 8,以及基本的 MySQL 用法。 下载 下载地址 https://dev....

waylau
今天
0
0
微信第三方平台 access_token is invalid or not latest

微信第三方开发平台code换session_key说的特别容易,但是我一使用就带来无穷无尽的烦恼,搞了一整天也无济于事. 现在记录一下解决问题的过程,方便后来人参考. 我遇到的这个问题搜索了整个网络也...

自由的开源
今天
3
0
openJDK之sun.misc.Unsafe类CAS底层实现

注:这篇文章参考了https://www.cnblogs.com/snowater/p/8303698.html 1.sun.misc.Unsafe中CAS方法 在sun.misc.Unsafe中CAS方法如下: compareAndSwapObject(java.lang.Object arg0, long a......

汉斯-冯-拉特
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部