有兴趣开发第三方控件的来啦.

Question

在OnMouseMove事件里面可以使用LoadFromFile(FileName)更换图片～～
然后在Ｆｏｒｍ的ＯｎＭｏｕｓｅＭｏｖｅ事件里面把图片更换回去～～

Answer 1

可以自己手动的添加一个消息，就是 OnMouseEnter消息

Answer 2

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Image1.Picture.LoadFromFile('aa.bmp');
end;
procedure TForm1.OnMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Image1.Picture.LoadFromFile('bb.bmp');
end;