procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
判断当前鼠标是否在image中
if (X>5) and (X<Image1.Width-5) and (Y>5) and (Y<Image1.Height-5) then
Image1.Picture.LoadFromFile('E:\图标按钮\move.bmp')
else
Image1.Picture.LoadFromFile('E:\图标按钮\normal.bmp')
end;