再请教个简单的问题，关于鼠标改变的

就是怎么才能使当鼠标移动到某一个按钮上时，鼠标变成一个小手，移开时又变回来？
请高手赐教，不甚感谢！

解决方案 »

  1.   

    呵呵 可以截获按钮的WM_ENTER And WM_EXIT消息，设置相应的鼠标形状
    Screen.Cursor := crHourGlass;//漏斗鼠标
    Screen.Cursor := crDefault;//默认鼠标
      

  2.   

    不然的话 在按钮的Onmousmove中写也行，先判断当前鼠标是否漏斗，如不是则改成漏斗
    在按钮的载体控件上Onmousmove中也要写，先判断当前鼠标是否箭头，如不是则改成箭头
      

  3.   

    直接可以在指定的控件上设置鼠标的属性CURSOR
      

  4.   

    按钮有一个Cursor属性，把这个属性选择为：crHandPoint就可以了
      

  5.   

    button的cursor属性改为crHandPoint就可以了
      

  6.   

    procedure TMainFrm.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
       Button1.Cursor := crHourGlass;//漏斗鼠标end;