小编use*_*090的帖子

我把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.

我用这个代码

如何让它作为信息出现在我的屏幕上？

Function GetUserFromWindows:String;    
Var    
  UserName : string;   
  UserNameLen : Dword;    
Begin    
  UserNameLen := 255;  
  SetLength(userName, UserNameLen) ;   
  If GetUserName(PChar(UserName), UserNameLen) Then     
    Result := Copy(UserName,1,UserNameLen - 1)       
  Else     
    Result := 'Unknown';      
End;