文档章节

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桌面的设置

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

JavaGG
2009/05/23
485
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
Dell PERC5/6 RAID配置中文手册

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

技术小甜
2017/11/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Java 如何实现线程间通信?

正常情况下,每个子线程完成各自的任务就可以结束了。不过有的时候,我们希望多个线程协同工作来完成某个任务,这时就涉及到了线程间通信了。 本文涉及到的知识点: thread.join(), object....

颖辉小居
14分钟前
0
0
记一次阿里云服务器运行慢排除

公司测试环境用的阿里云服务器+docker部署的,一共跑了14个项目。之前几个月一直OK,最近几天突然很卡很慢。刚开始以为是项目问题,又是扩大内存,又是清减插件,甚至停了一半项目。结果CPU...

李玉长
15分钟前
0
0
统一客服消息返回错误:{"errcode":43004,"errmsg":"require subscribe hint: [9Vv08633952]"}

公众号或者小程序发送客服消息错误: {"errcode":43004,"errmsg":"require subscribe hint: [9Vv08633952]"} 场景:小程序使用公众号的服务消息,推送消息,如果接收人没有关注公众号,就会出...

tianma3798
26分钟前
1
0
Rainbond V5.0 Beta公测公告

Rainbond支撑企业应用的开发、架构、交付和运维的全流程,通过“无侵入”架构无缝衔接各类企业应用,底层资源可以对接和管理IaaS、虚拟机和物理服务器 Rainbond V5.0即日起开启Beta版本公测,...

好雨云帮
44分钟前
2
0
Word Pattern(leetcode290)

Given a pattern and a string str, find if str follows the same pattern. Here follow means a full match, such that there is a bijection between a letter in pattern and a non-empt......

woshixin
50分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部