//打开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;
//打开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; linzhengqun的代码没问题呀 我刚试过了
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;
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;
linzhengqun的代码没问题呀
我刚试过了