delphi如何给按钮添加单键快捷键（F1~F12)

用action

讲按钮窗体的Keypreview设为True，然后加如下代码

procedure  TForm1 . FormKeyDown(Sender: TObject;  var  Key:  Word ;
  Shift: TShiftState);
begin
  if  Key=VK_F1  then
    self . Button5 . Click;
end ;

用applicationEvent

procedure TForm1.evnts1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  //如果不是当前窗体的消息，不处理
  if GetActiveWindow <> Handle then
    Exit;

  //处理F1
  if (Msg.message=WM_KeyDown) and (Msg.wParam=VK_F1) then
  begin
    btnHelpClick( Self );
    Handled := True;
  end;
end;

TActionList  简单方便