问个简单问题，Image控件响应鼠标消息的方法？

Question

为了漂亮一点，我用一个Image控件模拟按钮功能，
鼠标移到Image内部时加载一张图片，鼠标移出时加载另外一张
鼠标点击时加载另外一张
问题是
怎么响应这几个消息？消息函数怎么写？
最好能给几行代码，举个例子，谢谢

Answer 1

CM_MOUSEENTER和CM_MOUSELEAVE
TImgButton = Class(TImage)
  private
    procedure MouseEnter(var msg: TMessage); Message CM_MOUSEENTER;
    procedure MouseLeave(var msg: TMessage); Message CM_MOUSELEAVE;
  public
    constructor create;
end;实现部分：
  procedure TImgButton.MouseEnter(var msg: Tmessage);
  begin
    Picture.assign(bitmap01);
  end;   procedure TImgButton.MouseLeave(var msg: TMessage);
  begin
    Picture.assign(bitmap02);
  end;

Answer 2

http://expert.csdn.net/Expert/TopicView1.asp?id=1604705