请教各位高手如何设置或编码,在Image中显示一幅图片,当鼠标移到这幅图片上时,鼠标变成手型,图片向左上角移动,鼠标离开后,又恢复回原地

解决方案 »

  1.   

    鼠标的问题好办, 设置image的cursor属性就可以,当然也可以编程,用loadcursor之类的函数!
    向左上角移动则还行增加一个timer,不断的更新image1.left,image1.top(注意出form之后的left,top处理)。
    在image的onmousedown或onmouseup的事件中设置timer的enable属性!
    要恢复回原地,一开始就记下image的left,top.当timer中的enable为false就设置image原来的left,top!
      

  2.   

    派生一个新控件
    响应CM_MOUSEENTER消息,用Image.Draw把图片稍向上画一点、设置cursor
    响应CM_MOUSELEAVE消息,用Image.Draw把图片画在原处、恢复cursor