Actionlist的快捷键可以设置成1，3，4，5等属性列表框中没有的键吗

Question

Actionlist的快捷键可以设置成1，3，4，5等属性列表框中没有的键吗

Answer 1

找了好多地方
终于有了答案，估计很多人遇到这个问题，我将代码公布如下：
（举例按数字键'1'时，显示message）
 procedure TForm1.FormCreate(Sender: TObject);
  begin
    KeyPreview := True;//关键语句所在
  end;
: procedure TForm1.Button1Click(Sender: TObject);
: begin
: showmessage('sadasdas');
: end;
: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
:   Shift: TShiftState);
: begin
: if key=49 then button1Click(nil);
: end;
: end.