delphi中TImage控件的句柄如何取

Question

我有個圖形控件,我要實現鼠標移動上去改變圖形.
鼠標移開則還原成之前的圖形.這個就考慮到TImage控件的句柄和光標所在句柄對比了.
但是沒有句柄屬性啊..求教

Answer 1

高版本的delphi timage控件有mouseenter 和 mouseleave事件，在里面做处理
如果是d7版本，可以在image 的 mousemove 和主窗口的 mousemove 中做判断，
// 判断鼠标是否进入了imgae控件范围
PtInRect(image1.ClientRect, Point(x,y))

Answer 2

有个函数叫PtInRect不知道你知道不知道……判断鼠标位置在不在一个rect中……很适合你的这个要求，在窗体的鼠标移动事件中处理即可。image1.ClientRect就是这个rect，注意取到的鼠标坐标一般是全局的，需要转换下即可。