相关疑难解决方法(0)

我是delphi开发的新手.我必须创建一个事件并将一些属性作为参数传递.有人可以分享一些演示程序,演示如何从头开始.我几乎每个网站都搜索过,他们都给了一段代码,但我需要的是一个简单易懂的完整程序.

我把images(TImage)作为按钮放在我的程序中.我想添加一些额外的效果,所以在OnMouseMove(当用户将鼠标移动到图像上时)图像被另一个图像替换,以便产生额外的效果:

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var 
  Path, Destination: String;
begin
  Path := ParamStr(0);
  Destination := Extractfilepath(Path) + 'Images\Image2.bmp';
  Image4.Picture.LoadFromFile(Destination);
end;

但是每当用户移开鼠标时(当他离开图像时),它都不会撤消所做的事情(改回Image1).我该怎么做？没有OnMouseLeave事件.我正在使用delphi 7.