procedure WndProc(var Message: TMessage);override;可以加上自己的处理,系统原来的处理还是一样发生。 
有没办法中断系统默认处理。只运行我自己的处理?

解决方案 »

  1.   

    当然可以了,只要你在WndProc中处理自己的消息时,不要加上 inherited;
      

  2.   

    inherited还是要的,只不过那是对其他消息而言,对于你需要中断的消息,如果加了inherited,系统自动处理这消息了
    if message.msg=wm_SetFocus then exit;    {屏蔽掉WM_setfocus消息,不让Tmyedit控件获得输入焦点}    inherited wndproc(message);    {其他消息交父辈wndproc处理}    end; 如此这般