打开图形

xieyuan0553

如何编程，可以实现打开图形？类似于Visual Basic里的Load函数

aminghanhua

一、如果你是Delphi7
放入image控件
1、如果是位图直接可以image1.Picture.Bitmap.LoadFromFile('D:\1111.bmp')；
2、如果是jpeg等
procedure TForm1.Button1Click(Sender: TObject);  
var
  jpg: TJPEGImage; // 要use Jpeg单元  
begin  
  // 显示jpg大图片的方式  
  jpg := TJPEGImage.Create;  
  jpg.LoadFromFile(getcurrentdir() + '\pic.jpg');  
  Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的  
  jpg.Free;  
end;
二、如果你是高版本比如Delphi xe8 Seattle等版本
use jpeg,pngimage,gif等单元，放入image控件
直接image1.Picture.LoadFromFile('D:\wzdq.jpg')

dps521

过来 看一看 呵呵。