image 中导入图片的函数是什么？

Question

有张图片在d盘，我想通过代码导入到image中，怎么做？
谢谢

Answer 1

Image1.Picture.LoadFromFile('d:\test.bmp');

Answer 2

image 当鼠标放在上面的时候，显示一个图片，当鼠标离开时显示一个图片，函数是什么呢

Answer 3

OnMouseMove事件function LoadWebPicture(var ms: TMemoryStream; var IdHTTP: tidhttp; var img: TImage; URL: string): boolean;
var
  jpg: TJPEGImage;
  bmp: TBitMap;
  Ext: string;
begin
  try //URL http://www.com.com/user/admin/admin.jpe
    Result := False;
    if ms = nil then ms := TMemoryStream.Create;
    if ms.Size >0then ms.Clear;
    IdHTTP.Get(URL, ms);
    ms.Position := 0;
    //文件类型
    Ext := Copy(URL, LastDelimiter('.', URL) + 1, 4);
    if Ext = 'bmp' then begin
      bmp := TBitMap.Create;
      bmp.LoadFromStream(ms);
      img.Picture.Assign(bmp);
      Result := true;
    end
    else if Ext = 'jpg' then begin //如果是jpg图片
      jpg := TJPEGImage.Create;
      jpg.LoadFromStream(ms);
      img.Picture.Assign(jpg);
      Result := true;
    end;
  except
  end;
end;

Answer 4

图片本身不存在onmouseleave事件，所以无法直接用这个来实现，但是你可以简单点来做，
在图片上面罩一个透明的label组件
分别在如下事件中写代码：
procedure Tfm_Main.L_DUMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if L_DU.tag=0 then 
    //用L_DU这个label组件的tag属性控制是否加载了指定的图片，如果加载了，则不需要再次加载，因为在move事件中移动不断的执行，不停的加载会造成闪烁效果
   Img_Pinfo.Picture.Graphic.LoadFromFile(PathStr+'pic\down2.bmp')
   else Img_Pinfo.Picture.Graphic.LoadFromFile(PathStr+'pic\up2.bmp');
end;procedure Tfm_Main.L_DUMouseLeave(Sender: TObject);
begin
  if L_DU.tag=0 then
   Img_Pinfo.Picture.Graphic.LoadFromFile(PathStr+'pic\down.bmp')
   else Img_Pinfo.Picture.Graphic.LoadFromFile(PathStr+'pic\up.bmp');
end;