delphi自定义快捷键

时间：2015-07-15 12:43:02 阅读：147 评论：0 收藏：0 [点我收藏+]

标签：

procedure Tmis1f.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((shift=[ssALT])and(key=$4E) then...//Alt+N
if ((shift=[ssCtrl])and(key=$4E) then...//Ctrl+N
if ((shift=[ssShift])and(key=$4E) then...//Shift+N

end

delphi自定义快捷键

标签：

原文地址：http://www.cnblogs.com/CipherLab/p/4647729.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

动态 WebApi 引擎使用教程（3行代码完成动态 WebApi 构建） 2021-07-28
windows 查看文件的md5/sha1/sha256 2021-07-28
git windows下换行符问题 LF与CRLF转换 2021-07-27
FileExistsError: [WinError 183] 当文件已存在时,无法创建该文件。 2021-07-26
K8S--可视化界面Kubernetes Dashboard（API Server方式） 2021-07-26
Redis安装成windows服务 2021-07-26
c#32位支持大内存（>2gb） 2021-07-23
【c#】Dev BarStaticItem问题汇总 2021-07-23
Exception: URL fetch failure on https://s3.amazonaws.com/text-datasets/nietzsche.txt: None -- [WinError 10054] 远程主机强迫关闭了一个现有的连接。 2021-07-22
WinForm使用DataGridView实现类似Excel表格的查找替换 2021-07-22