Question

delphi7怎样实现图片变换

比如说这张图片静止在那里是一个样，移动到上面是另一个样，单击又是一个样？

Answer 1

设计时载入一张静止图片

然后在image的onmousemove事件中载入要鼠标移到上面显示的图片

在image的onclick事件中载入要鼠标单击显示的图片

追问

初学者，请教一下怎么注册载入图片的事件？Image.命令说无法调用。谢谢！

追答

在窗体上添加一个image控件，设置picture属性，即为载入静止图片

然后在属性事件列表中找到onmousemove事件，双击，则自动生成如下代码：
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
end;

在begin和end之间写入载入图片的代码：
image1.Picture.Graphic.LoadFromFile('图片文件路径');

单击事件同上操作

Answer 2

写OnMouseDown，和Application的OnActivate和OnDeactivate事件