Delphi热键简易方法
来源:互联网 发布:网络法律法规观后感 编辑:程序博客网 时间:2024/04/28 17:27
Delphi热键简易方法: 1)把form 的keypreview设置为true 2)然后在form的onkeydown里写: procedure TfrmSHJY.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin inherited; if key = VK_F4 then begin self.bsSNextClick(Sender); // self.bsSNext.Click; end; end; 2.用Action 添加一个ActionList 再从中添加一个Action 指定这个Action的快捷键Shortcut属性设为F1 在其代码实现中写Button点击的代码再把Button的Action属性设置为上面的Action 即可 3.定义Hotkey A.在public里:procedure wmhotkey(var msg:Twmhotkey);message wm_hotkey; 然后再定义一个常量用来存你热键消息,如 const myhotkey=139; 接着: procedure Tform1.wmhotkey(var msg:Twmhotkey); begin if msg.hotkey=myhotkey then showmessage('发财了!'); end; procedure Tform1.formcreate(sender:Tobject); begin registerhotkey(form1.handle,myhotkey,0,vk_F1);//vk_F1为你想定义的热键代码 end; procedure Tform1.formdestroy(sender:Tobject); begin unregisterhotkey(form1.handle,myhotkey); end; B.定义ctrl+enter热键; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TForm1; HotKey:Integer; implementation {$R *.DFM} procedure TForm1.hotykey(var msg:TMessage); begin if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=13) then begin ShowMessage('你按了ctrl+enter'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin HotKey:=GlobalAddAtom('HotKey'); RegisterHotKey(handle,HotKey,mod_control,13); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(handle,HotKey); end; end.
- Delphi热键简易方法
- delphi热键设定的方法
- delphi热键设定的方法
- delphi热键设定的方法
- delphi热键:delphi程序中定义热键的方法 --转
- delphi程序全局热键的自定义方法
- Delphi定义热键
- delphi 多热键注册
- Delphi全局热键
- delphi热键(快捷键)设定
- Delphi 热键处理hotkey
- Delphi屏蔽指定热键
- Delphi全局热键注册
- delphi 如何设置热键
- DELPHI如何注册系统热键
- delphi程序中定义热键
- delphi热键定义及应用
- Delphi RegisterHotKey 设置系统热键
- Infiniband的OFED package安装及vasp编译
- Android 数据存储——shared preferences
- 用GDB调试程序
- CentOS 5.5 ROOT 密码破解
- Android调用WebService
- Delphi热键简易方法
- js设置active控件安全,弹出窗口,信任站点
- 基于MongoDB MapReduce的统计分析
- SAP 导入语言包
- 如何解决:Android中 Error generating final archive: Debug Certificate expired on 10/09/18 16:30 的错误
- SD卡初始化及读写流程
- SD卡初始化及读写流程
- 【转】Linux下字符集的安装
- Linux设备驱动程序学习-Linux设备模型(总线、设备、驱动程序和类)