自己定义快捷键

Question

我要给一个文本编辑器做个自己定义快键捷的东东
比如功能键选用ctrl shift 还是alt 
基本键用26个字母
定义快捷字符串eg: ctrl+A ,定义键值为“delphi是个好东东” 
程序运行时，按下ctrl+A，文本上显示“delphi是个好东东” 
大家给我个思路吧，谢谢!

Answer 1

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key = Ord('A')) and (ssCtrl in Shift) then //Ctrl+A
       ShowMessage('delphi是个好东东');
end;

Answer 2

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key = Ord('A')) and (ssCtrl in Shift) then //Ctrl+A
       ShowMessage('delphi是个好东东');
end;

Answer 3

这个我知道！问题想明白了
把定义的功能键，基本键，键值存到ini文件里
在keydown事件里截获key和shift，到ini文件里找键值就可以了
不知道这么做行不行