如何清楚Application的message queue?

解决方案 »

  1.   

    如何清除Application的message queue?
      

  2.   

    你不加任何东西..他怎么会有queue..
      

  3.   

    {在应用程序层处理//post 到消息列队中的消息收到时被激发:}
    procedure OnAppMessage(var msg:Tmsg;var Handle:Boolean);
    {在窗体过程层处理}
    procedure Wndproc(var msg:Tmessage);override;
    {在消息dispatch分发后处理}
    procedure YOURmessage(var msg:Tmessage);message YOURmessage
    {缺省消息处理函数}
    procedure DefaultHandler(var Msg);override;