Delphi 的热键应用

Question

delphi 用hotkey自定义做热键，在设置热键的时候怎么可以做成像QQ里的那样一个类似 listview 的框，里面的第一列是相关热键名称，相应的第二列就可以直接更改热键然后保存。请给点提示，或者是不是有第三方组件可以实现。谢谢

Answer 1

procedure TForm1.Action1Execute(Sender: TObject);
begin
  showmessage('');
end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
  13: Edit1.Text:= 'Enter';
  27: Edit1.Text:= 'Esc';
  //....
  end;
  action1.ShortCut:= key;
  // 记录到数据库, 或INI
end;

Answer 2

JVCL里面有热键实现，这里也有一个完整的例子http://delphi.about.com/od/windowsshellapi/a/delphi-hooks.htm