鼠标移到按钮上面时, 按钮有一定的运作回应。

使用什么控件可以达到这样的效果?
鼠标移到按钮上面时, 按钮有一定的运作回应。
就像鼠标移动到WORD的工具栏图标上一样。

解决方案 »

  1.   

    procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
    //你自定义的事件
    end;
      

  2.   

    在按纽的MouseMove事件中写代码
      

  3.   

    在按纽的MouseMove事件中写代码
      

  4.   

    用第三方控件吧，盒子上很上
    事实上如果你想实现这样的效果也行，不过要作比较多的工作
    比如你想鼠标移动按钮上，按钮会发出声音。如果你单处理Onmove事件
    它就会一直响，而不是响一下。你还要处理其他事件，以及设置变量 。才能达到效果
    但我觉得去下控件会方便得多。
      

  5.   

    onmourseMove
    onFormMove
    俩事件中交替使用