onkeydown 问题

Question

各位：
   我的窗的主要属性如下：
   formstyle:=fsMDIForm;
   keyPreview:=True;
OnkeyDown 的内容如下：
 if key=VK_F1 then
...
但在运行程序时，按F1时不响应。
请问该如何解决？
不能更改属性formstyle:=fsMDIForm;

Answer 1

有些键在KeyDown中是不响应的，改到Key_Press里试试？

Answer 2

同意： heixiu1980(heixiu1980) 
你可以把if key=VK_F1 then
改为if key=112 then试试！
有问题请发信息到我的E-mail:[email protected]

Answer 3

放一个ApplicationEvents控件，在它的OnMessage中，
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then
    case Msg.wParam of
      VK_F1: ShowMessage('F1');
    end;
end;

Answer 4

GZ 怎么窗体设置为fsMDIForm后
按键消息都不能正常响应了？...
...
type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure FormMsgProce(var msg: TMessage);message WM_KEYDOWN;
  public
    { Public declarations }
  end;  ...
  ...
procedure TForm1.FormMsgProce(var msg: TMessage);
begin
  showmessage(inttostr(msg.LParam));
  inherited;
end;严重关注