如何在一个窗体加快捷键，比如按f9触发“确定“按钮事件

Question

如何在一个窗体加快捷键，比如按f9触发“确定“按钮事件

Answer 1

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=#120 then
   begin
   Showmessage('你按了F9!!!') ;   end;end;

Answer 2

先在窗体上加个MainMenu1，然后双击它，输入一个caption就可以了，把他的visible属性设为false,他的shortcut属性设为F9，然后在他的单击事件里激发你的“确定”按钮事件

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.KeyPreview := True;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=120 then
    ShowMessage('F9 Pressed!');
end;

Answer 4

好多种方法的，上面的可以，用actionList也可以