在APPLICATION.OnMessage中按F10怎么不执行呢？(50分)

如下，我在按F10时他不执行GETKEYBORD_INPUT( MSG)，不知道为什么？

procedure TForm2.SCREEN_INPUT(var Msg: TMsg
var Handled: Boolean);
begin
CASE Msg.message OF
WM_MOUSEMOVE : BEGIN
BKFREETIMES := 0;
END;
256 : BEGIN
BKFREETIMES := 0;
GETKEYBORD_INPUT( MSG);
END;
END;
Handled := FALSE;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
APPLICATION.OnMessage := SCREEN_INPUT;
end;

F10是系统的菜单热键,截取F10这个按键用 actionlist 中添加action设置shortcut为f10来实现比较方便

接受答案了.