谁能给我一个form按下某键的列子？

wylton

在全局下按下某键，怎么没反应阿。。。。。。

这是我的源代码

procedure TFatherForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_F3) and (Button1.Enabled = true) then begin
     key := 0;
     Button1.Click;
  end;
  if (key = VK_F4) and (Button2.Enabled = true) then begin
     key := 0;
     Button2.Click;
  end;
end;       

wylton

问题自己已解决。

猫工

具体是怎么回事？

zblb1

具体是怎么回事？