Código Delphi [-] var direccion:string; begin if OpenPictureDialog1.Execute then begin direccion:= OpenPictureDialog1.FileName; DBImage1.Picture.Bitmap.LoadFromFile(direccion); end; end;
var direccion:string; begin if OpenPictureDialog1.Execute then begin direccion:= OpenPictureDialog1.FileName; DBImage1.Picture.Bitmap.LoadFromFile(direccion); end; end;