xieyuan0553 发表于 2015-10-3 10:05:07

打开图形

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

aminghanhua 发表于 2015-10-29 10:23:57

一、如果你是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 发表于 2015-11-24 11:26:06

过来 看一看 呵呵。
页: [1]
查看完整版本: 打开图形