怎样实现当鼠标移动到这各Panel上时它改变颜色，离开时又变回来？

怎样实现当鼠标移动到这各Panel上时它改变颜色，离开时又变回来。

解决方案 »

  1.   

    在Panel控件的MouseMove事件中编写，先判断鼠标在不在PaneL控件的范围内，如果在：
      Panel1.Color :=clRed;
      

  2.   

    在panel的OnMouseMove中：
    if panel1.color<>clred then
       panel1.color=clred;//这样是为了避免颜色闪动；
    而离开时，你在panel的OnMouseMove中无法扑捉，所以，你要在其他的事件中获取
    如Form的onMouseMove中
      if panel.color=clred then
         panel.color:=clblue;
      

  3.   

    ft...两条自定义消息的处理:CM_MOUSEENTER
    CM_MOUSELEAVE