怎样设置快捷键？

Question

我想用按F1,F2等键的时候执行按钮的事件，应该怎样做？
另外，在一个输入框输入完成按回车键让焦点直接跳到下一个输入框，有什么简单的方法吗？

Answer 1

在一个输入框输入完成按回车键让焦点直接跳到下一个输入框
---------------------------------------------------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    Self.Edit2.SetFocus;//edit1-->edit2
end;

Answer 2

//我想用按F1,F2等键的时候执行按钮的事件，应该怎样做？
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True; //可以直接设置
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F1: { F1要处理的代码 };
    VK_F2: { F2要处理的代码 };
    VK_F3: { F3要处理的代码 };
  end;
end;

Answer 3

如果你要按F1的时候执行按钮的操作
改动一点代码就可以了
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True; //可以在窗体属性直接设置
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    Self.Button1Click(Sender);//这里执行按钮操作
end;

Answer 4

在一个输入框输入完成按回车键让焦点直接跳到下一个输入框，有什么简单的方法吗？
方法如下：
将主窗体的keypreview置为true,设好各输入框的TAB键次序
procedure Tform1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Keybd_event(VK_TAB, 0, 0, 0);
  end;
end;