怎么给我的Form上的Button1一个快捷键，比如F2

Question

给分

Answer 1

TButton不能直接加 F2 快捷菜单设置Caption属性为“Button1&A”(&后的字母可以换，不区分大小写)将显示Button加一个有下划线的A，快捷键为“Alt + A”;如果楼主一定要加 F2，采用以下方法：
增加一个菜单项（主菜单和右键菜单都行），设置Click事件为Button1.Click,然后设置ShortCut属性为F2

Answer 2

补充：右键菜单必须是Button1自己或者父类的右键菜单。

Answer 3

設置form的keypreview為true, 然後就可檢測, 對應到相應的button

Answer 4

將 button 綁定到一個 Action 也可實現你要的功能!!

Answer 5

用 TFORM 的 FormKeyDown 事件捕捉procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F11)  then
    Button1Click(self);
end;必要时打开 TFORM 的 keypreview

Answer 6

使用TAction，方便，实惠，我和我的同事一直在用。:)

Answer 7

上述方法可以用 F11 作为 Button1 的快捷键

Answer 8

添加一个ActionList，然后New一个Action,定义好该Action的ShortCut，然后设置该Button的Action为你定义那个Action即可。按钮的Caption是依据Action的Caption变化的。

Answer 9

設置form的keypreview為true, 然後就可檢測, 對應到相應的buttonprocedure TForm1.BitBtn1Click(Sender: TObject);
begin
//事件
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = VK_F2)  then
    BitBtn1Click(self);end;

Answer 10

1.设置Form.KeyPreview=True
2.键入代码：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If (Key = VK_F2) Then Button1Click(self);
end;
3.键入代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
    //Beep;
    //What do you want to do?
end;