文档章节

TMainMenu 类[三] - 手动建立菜单(7) : 指定快捷键

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 153
阅读 5
收藏 0

菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535
ShortCut 的所有可选值请参加列表: http://www.cnblogs.com/del/archive/2008/02/04/1064631.html
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 := 'A1';
    Itemd.ShortCut := 16449; {这一句话就为菜单项 A1 指定了快捷键: Ctrl+A }
    Item.Add(Itemd);
end;

end.

 
 
 
 
 

 

 

  
效果图:


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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
开发工具总结(6)之被大多人忽略的AS的模板配置4种方式(使用详解)

【前言】2017年最后一天了,首先祝贺大家元旦快乐,2018工作顺利,天天开心。 Android Studio模板相信大家应该多少都有接触过吧,如果用的少也没关系,花30分钟看看这篇博客就会用了,我会带...

AWeiLoveAndroid
2017/12/31
0
0
​WinHotKey 工具使用笔记

一、WinHotKey 简介 WinHotKey 是一个管理 Windows 系统热键的工具。支持自定义新的热键,功能虽没有 AutoHotKey 工具强大,但易学易用。WinHotKey 的下载地址: http://www.softpedia.com/g...

北风其凉
2016/04/23
186
0
Sublime 从本地上传文件或是目录到服务器

问题描述: 最近在使用ST3进行代码编写,之前用的是Atom或是vscode,并没有一个十分中意的代码编辑器,主要还是看使用的心情吧,有的时候使用不同的编辑器。由于部分的代码是在本地机器(Mac...

北静王
06/25
0
0
Total Commander入门

TC(Total Commander)新手入门FAQ(转CCF k12345) 用TC也有些日子了,对新手来说上手确实比较麻烦,最近仔细扫了一遍隔壁和这里的所有TC帖子,发现很多问题重复,一些有价值的讨论散落各处,...

Jian-Yong
2011/11/15
0
0
sublime学习(二)档案导览与指令面板

(一)传送门 Goto Anything就像传送门,让你快速的开启任何档案。使用快捷键 ctrl+p 可以立即打开,当输入文字是立即搜寻、链接到相似档案名的档案并且及时预览.以下是各种快捷键: #: 在档...

VML
2014/04/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Java 并发编程原理

为什么要使用多线程? 通过多线程提高吞吐量 伸缩性比较好,可以增加 CPU 核心来提高程序性能 什么场景下使用多线程? 如:tomcat BIO Java 如何实现多线程? Thread、Runnable、ExecutorSer...

aelchao
14分钟前
0
0
谨慎的覆盖clone方法

说在前面 有些专家级程序员干脆从来不去覆盖clone方法,也从来不去调用它,除非拷贝数组。 其他方式 可以提供一个构造函数或者工厂去实现clone功能。 相比于clone,它们有如下优势: 不依赖于...

XuePeng77
14分钟前
0
0
什么是最适合云数据库的架构设计?

分布式数据库技术发展多年,但是在应用、业务的驱动下,分布式数据库的架构一直在不断发展和演进。 开源金融级分布式数据库SequoiaDB,经过6年的研发,坚持从零开始打造数据库核心引擎。在技...

巨杉数据库
23分钟前
0
0
源码模仿之RPC

源码模仿之RPC RPC - 远程过程调用,概念不多赘述,可自行百度。 场景 统一api接口 生产者(提供远程接口调用方) 使用者(主动调用远程接口) 代码实现 API接口(公共依赖包) DemoEntity (...

GMarshal
24分钟前
0
0
Linux之安装Tomcat8

最近要在Linux上安装Tomcat,记录下 1.进入tomcat8的安装目录 List-1 root@iZwz9bjiawhqzfsklyht4rZ bin]# pwd/opt/app/tomcat8/bin[root@iZwz9bjiawhqzfsklyht4rZ bin]# ll总用量 83......

克虏伯
24分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部