在你的元件里写上:
  procedure WMMouseLeave(var Message: TMessage); message WM_MOUSELEAVE;

解决方案 »

  1.   

    private
     procedure WMMouseLeave(Msg:TMessage);Message WM_MOUSELEAVE;

    procedure TForm1.WMMouseLeave(Msg:Tmessage);
    begin
    //process
    end
      

  2.   

    private
     procedure WMMouseLeave(Msg:TMessage);Message WM_MOUSELEAVE;

    procedure TForm1.WMMouseLeave(Msg:Tmessage);
    begin
    //process
    end
      

  3.   

    faint!我自己少写了一个参数,愚蠢啊!
      

  4.   

    To AutumnSakura(清风)
      你的程序事编译不过的。
      

  5.   

    To AutumnSakura(清风)
      怎么这么粗心哟
      

  6.   

    private
    procedure WMMouseLeave(var Msg:TMessage);Message WM_MOUSELEAVE;

    procedure TForm1.WMMouseLeave(var Msg:Tmessage);
    begin
    //process
    end