//打开OPDraw是OpenPictureDialog
procedure TFrmDraw.FileOpenClick(Sender: TObject);
var ext:string;
j:TjpegImage;
begin
if OPDraw.Execute then
begin
ext:=uppercase(Extractfileext(OPDraw.FileName));
if (ext='.JPG')or(ext='.JPEG') then
begin
j:=TjpegImage.Create;
j.LoadFromFile(OPDraw.FileName);
image1.Picture.Graphic:=j; //加了一句
end;
end;
end;
//打开OPDraw是OpenPictureDialog
procedure TFrmDraw.FileOpenClick(Sender: TObject);
var ext:string;
j:TjpegImage;
begin
if OPDraw.Execute then
begin
ext:=uppercase(Extractfileext(OPDraw.FileName));
if (ext='.JPG')or(ext='.JPEG') then
begin
j:=TjpegImage.Create;
j.LoadFromFile(OPDraw.FileName);
end;
end;
end;