新手请教：请问如何获取按键的值？

[hanfxiao2002]

要求如下： 当我的程序开始运行的时候，按下F2键的时候进行整个程序的初始化，
按下F3键，进行处理1
按下F4键，进行处理2

这个该怎么实现啊？就是怎么样可以获得按键的值，和按键后如何进行处理
谢谢。

[darkliu]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f2 then
begin
//执行代码
end;
end;

[jijl2001]

对，用虚拟键

[pengxuan]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f2 then
begin
//执行代码
end;
end;

[hellolongbin]

可以通过这个方法得到你想要查询的键值，然后进行处理：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ShowMessage(IntToStr(key));
if key=113 then 初始化// F2
else if key=114 then 处理1//F3
....
end;

[sdqhlyf]

gz

[cxj1976]

把你要执行的过程写在TAction的事件里，然后指定TAction的shortcut属性为响应的快捷键就行了