delphi 多热键注册

zhlfdm zhlfdm 博客等级 墨衍会员 · AI 创作全网分发 墨衍智能分发 本文由作者通过墨衍一键同步至各平台 1分发平台 900+累计阅读 953平均单平台 已同步平台 CSDN 微信公众号 微博 知乎 掘金 百家号 博客园 抖音 小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网 我也要 码龄19年
关注
转载 最新推荐文章于 2025-07-16 12:29:04 发布 953 阅读 AI 写同款· GEO 优化 ›
AI权益加码！Claude Code、Cursor等20+工具免费用！ 购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！ 阅读详情
  1. unit Unit1;   
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  7.   Dialogs;   
  8.   
  9. type  
  10.   TForm1 = class(TForm)   
  11.     procedure FormCreate(Sender: TObject);   
  12.     procedure FormDestroy(Sender: TObject);   
  13.   private  
  14.     procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;   
  15.     { Private declarations }  
  16.   public  
  17.     { Public declarations }  
  18.   end;   
  19.   
  20. var  
  21.   Form1: TForm1;   
  22.   
  23. implementation  
  24.   
  25. {$R *.dfm}  
  26.   
  27. var  
  28.   HotKeyId: array[0..12] of Integer;  //热键数组, 这里准备定义 13 个热键   
  29.   
  30. procedure TForm1.FormCreate(Sender: TObject);   
  31. var  
  32.   i: Integer;   
  33. begin  
  34.   //注册热键   
  35.   for i := Low(HotKeyId) to High(HotKeyId) do  
  36.     HotKeyId[i] := GlobalAddAtom(PChar(IntToStr(i)));  //热键命名可随意   
  37.   RegisterHotKey(Handle,HotKeyId[0],0,VK_F2);                //F2   
  38.   RegisterHotKey(Handle,HotKeyId[1],0,VK_UP);                //Up   
  39.   RegisterHotKey(Handle,HotKeyId[2],0,VK_DOWN);              //Down   
  40.   RegisterHotKey(Handle,HotKeyId[3],0,VK_LEFT);              //Left   
  41.   RegisterHotKey(Handle,HotKeyId[4],0,VK_RIGHT);             //Right   
  42.   RegisterHotKey(Handle,HotKeyId[5],0,VK_PRIOR);             //PageUp   
  43.   RegisterHotKey(Handle,HotKeyId[6],0,VK_NEXT);              //PageDown   
  44.   RegisterHotKey(Handle,HotKeyId[7],0,VK_OEM_PLUS);          //+   
  45.   RegisterHotKey(Handle,HotKeyId[8],0,VK_OEM_MINUS);         //-   
  46.   RegisterHotKey(Handle,HotKeyId[9],0,$31);                  //1   
  47.   RegisterHotKey(Handle,HotKeyId[10],0,$41);                 //a   
  48.   RegisterHotKey(Handle,HotKeyId[11],0,VK_RETURN);           //Enter   
  49.   RegisterHotKey(Handle,HotKeyId[12],MOD_CONTROL,VK_RETURN); //Ctrl+Enter   
  50. end;   
  51.   
  52. //热键   
  53. procedure TForm1.WMHotKey(var Msg: TWMHotKey);   
  54. begin  
  55.   if Msg.HotKey = HotKeyId[0] then ShowMessage('F2');   
  56.   if (Msg.HotKey=HotKeyId[1]) then ShowMessage('Up');   
  57.   if (Msg.HotKey=HotKeyId[2]) then ShowMessage('Down');   
  58.   if (Msg.HotKey=HotKeyId[3]) then ShowMessage('Left');   
  59.   if (Msg.HotKey=HotKeyId[4]) then ShowMessage('Right');   
  60.   if Msg.HotKey = HotKeyId[5] then ShowMessage('PageUp');   
  61.   if Msg.HotKey = HotKeyId[6] then ShowMessage('PageDown');   
  62.   if Msg.HotKey = HotKeyId[7] then ShowMessage('+');   
  63.   if Msg.HotKey = HotKeyId[8] then ShowMessage('-');   
  64.   if Msg.HotKey = HotKeyId[9] then ShowMessage('1');   
  65.   if Msg.HotKey = HotKeyId[10] then ShowMessage('a');   
  66.   if Msg.HotKey = HotKeyId[11] then ShowMessage('Enter');   
  67.   if Msg.HotKey = HotKeyId[12] then ShowMessage('Ctrl+Enter');   
  68. end;   
  69.   
  70. procedure TForm1.FormDestroy(Sender: TObject);   
  71. var  
  72.   i: Integer;   
  73. begin  
  74.   //注销热键   
  75.   for i := Low(HotKeyId) to High(HotKeyId) do  
  76.   begin  
  77.     UnRegisterHotKey(handle,HotKeyId[i]);   
  78.     GlobalDeleteAtom(HotKeyId[i]);   
  79.   end;   
  80. end;   
  81.   
  82. end.
收录于
转贴

当前文章被收录于：

转贴
18 篇文章 0 人学习
订阅专栏 查看详情
标签
#delphi #integer #forms #interface #windows
#class
Delphi 全局热键注册+使用 RAD Studio 10.2.3 测试√ 全局变量： var mHotKey01, mHotKey02: Integer; 1、在程序创建的时候或者窗体显示的时候注册热键 begin // 原子【mHotKey01】 mHotKey01 := GlobalAddAtom('xiaoyin_HotKey_CTRL_F1') - $C000; //注册热键【Ctrl + F1】 RegisterHotKey(Handle, mHotKey01, MOD_CONTROL, VK_F1) 阅读详情

相关推荐

Delphi实现Hotkey自定义热键功能源代码大全

Delphi作为一门强大的编程语言，它集合了快速开发与编译效率于一身，深受IT从业者的喜爱。从最初的Pascal发展而来，Delphi不仅继承了Pascal的严谨和高效，还引入了面向对象编程的特性。它采用了可视化的集成开发环境（IDE），开发者可以在其中快速设计GUI组件并编写高效的代码。Delphi广泛应用于Windows平台的应用程序开发，特别是数据库和网络通信领域。它的核心优势之一是其编译器能够生成高效的本地代码，这意味着Delphi编写的程序运行速度非常快，接近甚至优于C++等语言。

weixin_29476595的博客 876

全局热键 RegisterHotKey

全局 热键 RegisterHotKey 注册

delphi设置全局快捷键

delphi设置全局快捷键

Delphi之RegisterHotKey和UnregisterHotKey

下面是根据D7的帮助手册翻译并注释过来的，不得不说按F1查看帮助手册真的很方便，就是是英文的，比中文看的久点，为了方便查询，我就顺手翻译下了。 RegisterHotKey函数用来注册全局热键到指定的句柄 下面是函数原型 BOOL RegisterHotKey( HWND hWnd, //接收热键的窗口句柄 int id, // 热键的标识id UIN...

拿头去拼啊 819

DELPHI如何注册系统热键

用DELPHI如何注册系统热键 (2003年10月21日) 发表日期：2003-3-1 文章作者：未知  已浏览： 357 次 var i=9; fun

dingrj的专栏 2357

delphi RegisterHotKey注册快键

RegisterHotkey(self.handle,globalatom('myhostkey'),mod_control+mod_alt,VK_key12);   procedure Hostkey(var msg:Tmessage);message WM_HOTKEY;egin     procedure HostKey(var msg:Tmessage); begin

shandiantianying的专栏 1021

实现一个热键注册编辑的类

实现一个热键注册编辑的类CST（http://blog.csdn.net/mrtechno） 2005-8-19  1 文档目的... 12 热键编程基础... 12.1 API函数... 12.2 编程方法... 23 实现概述... 44 实现细节... 44.1 XML配置文档结构... 44.2 热键编辑控件 ThotKeyEdit 54.3 热键自定义窗体类TformHotKeyconf

MrTECHNO的编程日记 2126

DELPHI中使用热键

       在windows中规定应用程序热键的唯一标识符取值范围在0x0000~0xBFFF之间，动态链接库的取值范围在0xC000~0XFFFF之间。       热键的辅助按键还包括Mod_Ctrl,Mod_Alt和Mod_Shift，对于windows兼容键盘，还包括windows标志键，Mod_Win。       热键设置成功后，在程序运行过程中如果有预定义的热键被按下，window

1296

Delphi RegisterHotKey 设置系统热键

首先先贴一张热键表 Symbolic constant name Value (hexadecimal) Keyboard (or mouse) equivalent VK_LBUTTON 01 Left mouse button VK_RBUTTON 02 Right mouse button VK_CANCEL 03 Cont

Microblue（严 武） 7036

delphi热键:delphi程序中定义热键的方法 --转

====================================================== 注：本文源代码点此下载 ====================================================== 疯狂代码 http://www.crazycoder.cn/ :http:/www.crazycoder.cn/delphi/article117

javazhuanzai的专栏 389

Delphi版的Hotkey自定义热键源代码

内容索引:Delphi源码,系统相关,Hotkey,热键　　Delphi版的Hotkey自定义热键源代码，设置，录制宏、编辑描述文件，鼠标快捷方式定义，键盘快捷方式定义等，源码爱好者已经收录了不少的Delphi热键，每一个从实现的原理上都有所不同，收录这些源码更侧重于学习研究，因此学习Delphi编程的朋友有必要参阅一下源程序。注意，源码包中有多个DPR文件，要先编译生成DLL的，然后再编译热键程序。

Delphi 注册和删除热键举例.rar

Delphi 注册HotKEY热键功能，程序功能包括注册热键、删除热键，比较初级的Delphi自定义热键的例子，仅供Delphi初学者参考，编译请在Delphi7环境下进行。下面来分享两者的具体实现代码： 　　以下是注册热键的功能，通过修改注册表实现： 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 hotkeyid:=GlobalAddAtom(pchar('UserDefineHotKey'))-$C000; 　　 registerhotkey(handle,hotkeyid,MOD_CONTROL or mod_Alt,$41); 　　end; 　　以下是删除热键的功能，同样通过修改注册表实现： 　　procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 　　begin 　　 unregisterhotkey(handle,hotkeyid); 　　 DeleteAtom(HotKeyID); 　　end;

delphi编程注册热键_调出隐藏的窗体

delphi编程注册热键_调出隐藏的窗体

Delphi全局热键注册

private { Private declarations } Aatom: ATOM; procedure hotkey(var msg: TMessage); message WM_HOTKEY; procedure TForm1.FormCreate(Sender: TObject); begin if FindAtom('ZWXhotKey') = 0 th

123 1515

delphi程序全局热键的自定义方法

全局热键的意思是指，当程序并不是当前窗口的时候，按下热键也可以响应。 以前做这种功能用过一种方法，是编写一个键盘钩子的DLL，过滤系统中所有的键盘消息，当然还要再写一个程序去调用它。这种方法做起来麻烦了一起，不过倒是黑客窃取键盘密码雏形。 这里介绍的方法是利用windows api直接注册热键，分三步走：1、增加一个全局Atom2、为Atom注册一个全局热键（这样相应的键盘消息就会分配给本程序...

weixin_30673715的博客 677

Delphi全局热键的注册

1.在窗启动时创建ATOM;(aatom:ATOM;定义在private中） 1 if FindAtom('ZWXhotKey')=0 then 2 begin 3 aatom:=GlobalAddAtom('ZWXhotKey'); 4 end; 5 if RegisterHotKey(Handle,aatom,MOD_ALT,$41) then 6 ...

weixin_30699741的博客 95

delphi热键设定的方法

问题是你要全局的.还是要系统级的，还是要局部的。 如果是全局和局部的，那么在主窗体上(或其他控件上)(form)的KeyPress等属性上监控就行了.. 如果是系统级的，那么需要API了. 简单代码: 用到3个API函数 BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识

找个地方放一下 2041

Delphi 热键处理hotkey

单元引用：Uses Winapi.Messages;  函数声明：   procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; 热键注册：窗体create中 HotKeyId := GlobalAddAtom('MyHotKey') - $C000;   RegisterHotKey(Handle, HotKeyId, 0,

时光旅行者 2670
上一篇： SQL 收藏------------SQL操作全集
下一篇： delphi 如何设置快捷键之2
点赞 0
评论 0
书签 书签 0
zhlfdm
zhlfdm
博客等级 码龄19年 25粉丝 5原创
+ 关注 专栏目录 订阅专栏
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值