在线等待,高分!如何扑获F1----F12键!给出部分代码

Question

procedure TForm_Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//  if Key=VK_F12 then   Application.HelpCommand(HELP_CONTEXT,HelpContext);
  if Key=VK_F12 then Application.HelpContext(1050100);
end;

Answer 1

打开帮助主题：
  Application.HelpCommand(HELP_FINDER,HelpContext);
打开帮助索引：
  Application.HelpCommand(HELP_PARTIALKEY,0);

Answer 2

if Key=VK_F3 then showmessage('aa');

Answer 3

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F1 then
    //...do your thing.....
  if Key=VK_F12 then
    //...do your thing.....
end;

Answer 4

同上，还要加上form1.keypreview :=true