快捷键问题

Question

偶现在要完成一个功能，就是输入一个快捷键，然后程序响应，但不是设置有些控件的shortcut属性，那该怎么做。谢了

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotkey(handle,GlobalAddAtom('Hotkey1'),mod_control+
    mod_Alt,ord('Z'));   //定义热键Ctrl+Alt+Z
end;procedure TForm1.WMHOTKEY(var msg: TWMHOTKEY);
begin
  WinExec('notepad',SW_show);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotkey(handle,GlobalAddAtom('Hotkey1'));
end;

Answer 2

用action实现，在action的属性shortcut中设置快捷键，在action的onexecute中写要响应的内容

Answer 3

dwgz把该说的的都说了该写的都写了
哎我该怎么办呢????