请问：如何自定义快捷键？

[lvloj]

如果当焦点不在窗体上时，快捷键都能有效更好！

[AlphaOne]

RegisterHotKey

[sundayboys]

y，用RegisterHotKey注册热键。

[ch81]

整个系统响应，在handlemsg要做什么都可以

type
TForm1 = class(TForm)
...public
procedure HandleMsg(var Msg:TMessage);message WM_HOTKEY;


procedure TForm1.FormCreate(Sender: TObject);
begin
if RegisterHotKey(Handle,$1000,MOD_CONTROL,VK_RETURN)=true then
begin
showmessage('ik');
//UnRegisterHotKey(Handle,$1000);
end;
end;
procedure TForm1.HandleMsg(var Msg: TMessage);
begin
showmessage('hello');
end;
给分！！

[xzgyb]

有个API函数
BOOL RegisterHotKey(
HWND hWnd, // window to receive hot-key notification
int id, // identifier of hot key
UINT fsModifiers, // key-modifier flags
UINT vk // virtual-key code
);
然后在程序里响应WM_HOTKEY,根据wParam的值是否等于id值来执行相应的动作

[xzgyb]

几位老大这么快，哎!