1个回答
展开全部
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile('D:\My Pictures\081.jpg') ; {括号内参数写你的图片路径就可以了}
end; 不过写在OnMouseMove事件里面貌似效果很不理想，因为当鼠标在Image上只要有一点移动就会马上触发该事件，就会载入图片一次，看起来画面很闪烁，所以可以考虑别的什么办法来实现。具体..我也思考中.
Y: Integer);
begin
Image1.Picture.LoadFromFile('D:\My Pictures\081.jpg') ; {括号内参数写你的图片路径就可以了}
end; 不过写在OnMouseMove事件里面貌似效果很不理想，因为当鼠标在Image上只要有一点移动就会马上触发该事件，就会载入图片一次，看起来画面很闪烁，所以可以考虑别的什么办法来实现。具体..我也思考中.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
