Question

delphi 如何利用F1 ，F2功能键

就是按下F1 让他实现与BUTTON按钮一样的功能

Answer 1

//窗体的Create事件,设置Form1的KeyPreview属性为True,接收键盘事件
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;

//Form1的KeyDown事件代码
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
Button1.Click;
end;

//Button1单击事件就写当用户按下F1时要执行的代码
procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

以上代码可以完成当用户在窗体Form1按下F1键时相等于按下Button1键

Answer 2

添加一个ActionList
再从中添加一个Action
指定这个Action的快捷键Shortcut属性设为F1 在其代码实现中写Button点击的代码
再把Button的Action属性设置为上面的Action

即可