按F10 程序就卡住了

Question

按F10 程序就卡住了，随便给窗口一个什么消息 (如果点击标题栏什么的) 又活了了
调试模式是这样
独立运行也这样
Mainform.keydown
Mainform.keyup
Mainform.keyPress 都是空的
没有自定义 消息
没有注册钩子之类的函数
换了机器
怎么回事望高手指点

Answer 1

如果你
没有自定义 消息
没有注册钩子之类的函数 
那么看一下MenuItem里有没有哪个的快捷键为F10,并把它取消就好了。

Answer 2

没 用 MainMenu 控件啊

Answer 3

按F10 系统菜单键 就就在标题栏弹出来了 （就是[最大化,最小化,关闭]那个 )怎么回事严格的 说只 是绘图 方面 的 卡住了 
就 是print 不 管用 了 

Answer 4

其实这个问题是我问错了
怎么让菜单不弹出来New->Application 也 这样 所以不是 我 的代码的问题 
New->Application 然后 
运行 按下 F10 那个 实际上菜单弹出来了 
只是 没显示 你按下上下键(↑↓) 菜单就出来了  
我现在要的是 怎么让菜单不弹出来

Answer 5

Form1.BorderIcons  里没 biSystemMenu就 不 会有菜单
但是那样的话 [最大化],[最小化] 和 那个X 都没了 

Answer 6

解决 了 谢谢大家
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_F10)or (Key=VK_MENU) then begin
    Key:=0;
    Exit;
  end;
end;end.