大哥们帮个忙:怎样在一个form上按下"del"键执行我Button1上的代码?

Question

其实就是快捷键啦,我form上有个"删除"按钮,很多用户用惯了"del"键来删东西,觉得方便
所以要我这么做

Answer 1

先将form的keypreview 设为true
然后在form的onkeydown里加代码,判断按下的是del键就执行button1的点击。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_DELETE then
    button1Click(Button1);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('1');
end;end.

Answer 2

同意楼上的
keydown事件里也可以这么写：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=46 then Button1.Click;
end;