我不知道,但我猜想是对消息的响应时间或是什么的。  AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,'前端显示(&A)');同这一行的“200”有关吧!

解决方案 »

  1.   

    的确是和AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,'前端显示(&A)');
    有关,200是您添加的菜单项的ID,当按下系统发送消息,消息里面就含有这个ID。
    所以可以用很简单的方法来证实:将这一句改成300,但是下面的不改,结果是点击菜单没有反应。如果把if Msg.IDItem =200 then 中200也改成300,您就可以发现效果和200的完全一样啦。
      另外:这么写习惯不好
        procedure MenuCommand(var Msg:TWMMENUSELECT); //自定义过程
        message WM_SysCommand;
        这样写好一点
        procedure MenuCommand(var Msg:TWMMENUSELECT); message WM_SysCommand;//自定义过程