将<br>procedure MouseLeave(var message:TMessage);message CM_MOUSELEAVE; //鼠标出<br>写在声明的public里面。<br>然后在程序里面写<br>procedure TForm1.MouseLeave(var message:TMessage);message CM_MOUSELEAVE; //鼠标出<br>begin<br> ShowMessage('鼠标移走了!');<br>end;<br><br>