如何在form中定义快捷键呢?

Question

比如,我要在form1中定义快捷键F位Button1.Click事件呢

Answer 1

比如按下F1=Button1.Click,谢谢了。

Answer 2

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //<----------你的代码
  if Key = #13 then ShowMessage('Enter');
end;KeyPreview属性设置为True

Answer 3

KeyPreview属性设置为True
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Delete then
    ......
end;其他鍵值查看幫助，輸入關鍵字：Virtual key codes

Answer 4

KeyPreview属性设置为True
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_F1 then
    Button1.Click;
end;

Answer 5

注意，KEYPRESS中不支持F1
KeyPreview属性设置为True
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_f1 then
    ......
end;

Answer 6

KeyPreview属性设置为True
procedure Tfrm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_F1 then
    Button1.Click;
end;

Answer 7

也可以在直接加在按钮上呀(添加((&I))。或者在ShortCut属性中选择。

Answer 8

procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
begin
  case Msg.HotKey of
    cHotKeyWinF2: begin  //按下F2
    end;
  end;
end;