键盘响应（F1）

[xianxiangzi]

if Key = VK_F1 then
begin
ShellExecute(0,'open','safe.chm',nil,nil,SW_SHOW);
end;

if Key = #112 then
begin
ShellExecute(0,'open','safe.chm',nil,nil,SW_SHOW);
end;

if Key = chr(VK_F1) then
begin
ShellExecute(0,'open','safe.chm',nil,nil,SW_SHOW);
end;


请高手指点，总是提示类型不匹配。

[myling]

你不會寫在了onkeypress里了吧？

[myling]

如果在keypress里，就要寫#112

keydown/up里就要寫VK_F1

如果還不行，就是別的原因了


你在什麽控件上響應鍵盤？

[dashou_hs]

应当写在OnKeyDown事件中。OnKeyDown可以响应任何键，而OnKeyPress只能响应对应于字符的键，象Shift or F1这样的键是不响应的。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
ShowMessage('You pressed F1 Key!');
end;

[cxreal]

把楼主写的测试了一下
都执行成功了.....

[dongdonga]

学习..

[我不要昵称]

楼主，你不是拷贝别人的吧？我照你的写没错啊。
如果是拷贝可能会出字符问题，你单个敲写了.

[xianxiangzi]

现在编译通过了，谢谢。但是事件没有反应，是何原因？

[tpmao]

什么意思？？？？什么叫事件没有反应？？

[我不要昵称]

把窗口的keypreview:=true

[我不要昵称]

如果解决问题要给分哦，我真的没分，只剩几分了

[xianxiangzi]

我新建的工程中，在主FORM中可以反应F1键，触发事件ShellExecute(0,'open','safe.chm',nil,nil,SW_SHOW);在我的系统中在主FORM中加入后却没有反应，请高手指点！我是新手，请勿见笑。