http://www.cnblogs.com/songsu/articles/1314372.html
1、定义变量和函数
TWndMethod OldImageWndProc;
void __fastcall NewImageWndProc(TMessage& Message);
2、在窗口构造函数中执行以下语句
OldImageProc=Image1->WindowProc;
Image1->WindowProc=NewImageWndProc;
3、编写实际的代码:
void __fastcall TForm1::NewImageWndProc(TMessage& Message);
{
if(Message.Msg==CM_MOUSELEAVE)
{
Memo1->Lines->Add("鼠标离开");
// 写你的代码
}
else if(Message.Msg==CM_MOUSEENTER)
{
Memo1->Lines->Add("鼠标进入");
// 写你的代码
}
//把其它消息发送到原来的处理函数
OldImageWndProc(Message);
}