文档章节

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
滑动菜单栏SlidingMenu动画效果的实现

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

程序袁_绪龙
2015/07/18
0
0
Sublime Text 菜单文件格式说明+修改心得(赵亮-碧海情天theforever)

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

赵亮-碧海情天
2013/12/23
0
3
BIOS设置中功能的翻译及介绍

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

余二五
2017/11/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

20181018 上课截图

![](https://oscimg.oschina.net/oscnet/49f66c08ab8c59a21a3b98889d961672f30.jpg) ![](https://oscimg.oschina.net/oscnet/a61bc2d618b403650dbd4bf68a671fabecb.jpg)......

小丑鱼00
55分钟前
1
0
WinDbg

参考来自:http://www.cnit.net.cn/?id=225 SRV*C:\Symbols*http://msdl.microsoft.com/download/symbols ctrl + d to open dump_file Microsoft (R) Windows Debugger Version 6.12.0002.633......

xueyuse0012
今天
2
0
OSChina 周五乱弹 —— 想不想把92年的萝莉退货

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @罗马的王:分享松澤由美的单曲《地球ぎ》 很久没看圣斗士星矢了 《地球ぎ》- 松澤由美 手机党少年们想听歌,请使劲儿戳(这里) @开源中国首...

小小编辑
今天
15
2
springBoot条件配置

本篇介绍下,如何通过springboot的条件配置,控制Bean的创建 介绍下开发环境 JDK版本1.8 springboot版本是1.5.2 开发工具为 intellij idea(2018.2) 开发环境为 15款MacBook Pro 前言 很多时候,...

贺小五
今天
1
0
javascript source map 的使用

之前发现VS.NET会为压缩的js文添加一个与文件名同名的.map文件,一直没有搞懂他是用来做什么的,直接删除掉运行时浏览器又会报错,后来google了一直才真正搞懂了这个小小的map文件背后的巨大...

粒子数反转
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部