文档章节

TMainMenu 类[五] - 快捷键的记录方式

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 381
阅读 1
收藏 0

码上生花,ECharts 作品展示赛正式启动!>>>

我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449
其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 2007):
TShortCut = Low(Word)..High(Word);

Menus 单元有两个函数: TextToShortCut、ShortCutToText, 可以互相转换它们.
var
  w: Word;
  s: string;
begin
  w := TextToShortCut('Ctrl+A');
  ShowMessage(IntToStr(w)); {16449}

  s := ShortCutToText(16449);
  ShowMessage(s);           {Ctrl+A}
end;

 
 
 
 
 

 

 

  
它是根据什么原理用一个数字记下了一个字符串的呢? 我没有深究, 只是根据已知数据猜了一下.
Word 是双字节, 有一个高字节、一个低字节.
高字节用来储存辅助键, 就是 Shift、Ctrl、Alt 和它们的组合; 低字节储存单键对应的键值.
对组合键的键值, Delphi 规定如下:

辅助键
Shift $20
Ctrl $40
Shift+Ctrl $60
Alt $80
Shift+Alt $A0
Ctrl+Alt $C0
Shift+Ctrl+Alt  $E0 

譬如: 16449, 用十六进制表示是: $4041; 高字节 $40 表示 Ctrl, 低字节 $41 表示字母 A.


既然如此, 不用它的转换函数, 我们自己也可以转换了:
var
  w: Word;
  h,l: Byte;
begin
  w := 16449;
  h := Hi(w); {获取高字节}
  l := Lo(w); {获取低字节}
  ShowMessage(IntToHex(h,2)); {40}
  ShowMessage(IntToHex(l,2)); {41}
end;

 
 
 
 
 

 

 

  
不过, 我在整理 所有可用的快捷键列表时, 碰见了太多重复值(就是一个快捷键对应着好多个数值), 还不知是什么原理.

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

涂孟超
粉丝 13
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
加载中
请先登录后再评论。
IDEA开发工具的常用设置 极大提高开发效率

文章目录 这段时间用了IDEA开发工具,这个工具非常强大。果然就和其它同学说的一样,一旦接触,就不再习惯用其它的开发工具了。工欲善其事必先利其器,这几天我通过一些视频还有文章,整理了...

爱写代码的文科男
04/12
0
0
【Spring学习】Spring的源码解析之路 ——【step1】基础环境配置 + IDEA快捷键整理

前导: 本次主要是关于“基础环境搭建”的内容,分为三个部分,(1)查看源码和项目需要的开发集成环境Intellig IDEA的使用,(2)如何导入源码,(3)在这个过程中梳理出的快捷键 正文:===...

osc_kh53eyum
2019/02/19
12
0
调试助手DebugLeader

虽然网上有很多调试助手,不管是串口调试还是网络调试,但是总有一些不如意的地方。 除了功能上不能满足需求以外,有的要管理员方式启动,还很多广告,也有一些要收费。 所以要自制一个调试助...

队长-Leader
06/02
0
0
pycharm最常用的快捷键总结

转载:pycharm最常用的快捷键总结 一 常用快捷键 编辑类: Ctrl + D 复制选定的区域或行 Ctrl + Y 删除选定的行 Ctrl + Alt + L 代码格式化 Ctrl + Alt + O 优化导入(去掉用不到的包导入) ...

osc_pocs16xx
2019/07/10
2
0
Eclipse:应该掌握的快捷键

打游戏你要不会快捷键,那估计是个菜鸟,在使用任何IDE工具时,你要不会一些常用快捷键,那你也一定不是这个工具的高手。每个IDE都会使用到快捷键来提高我们的效率,本篇介绍一下Eclipse的快...

test042
2013/03/07
214
1

没有更多内容

加载失败,请刷新页面

加载更多

向您推荐Groove BizTalk Workspace!

什么是Groove Office Groove 2007 是一个协作软件程序,适合用于处理从简单的文档协作到与业务过程集成的自定义解决方案的各种项目活动。 Office Groove 2007 的以下十大方式可帮助您和您的团...

osc_o8ipcpa5
28分钟前
19
0
【我的Android进阶之旅】你可能不知道android.view.View#setAlpha()方法也会影响你的APP性能!

一、问题描述 最近在优化APP的性能的时候,发现了一个平时完全没有注意到的一个能够影响APP性能的代码。这个代码就是调用了android.view.View#setAlpha()方法。 1.1 需求描述 APP有个需求,是...

osc_y08db3kb
28分钟前
21
0
lsof命令详解

lsof命令详解 lsof 简介 lsof(list open files)是一个列出当前系统打开文件的工具。在linux环境中一切皆文件,通过文件不仅仅可以访问常规数据,还可以访问网络连接和硬件。所以如传输控制...

osc_htns3spg
29分钟前
14
0
设置非root账号不用sudo直接执行docker命令

环境信息 操作系统:Ubuntu 20.04 LTS 桌面版 Docker:19.03.10 现状 当前账号是willzhao,直接执行docker xxx命令会报以下错误: willzhao@ideapad:~$ docker imagesGot permission denie...

osc_kl6fknqf
30分钟前
10
0
小米净水器更换滤芯步骤和水龙头亮黄灯的解决办法

【开篇序言】 众所周知,无论何种品牌的净水器,滤芯都是有一定使用寿命的,而不是一次性安装可永久使用,如果遇到无需换滤芯这类宣布,请远离,不靠谱。换滤芯,小米净水器也不例外,小米净...

osc_zzg7fpke
31分钟前
23
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部