Delphi热键简易方法

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.