Código Delphi [-] procedure TForm1.BuscaryAbrir1Click(Sender: TObject); begin if OpenDialog1.Execute then begin CurrentFile := OpenDialog1.FileName; SaveStyles; Image.Picture.LoadFromFile(CurrentFile); RestoreStyles; end; end;
procedure TForm1.BuscaryAbrir1Click(Sender: TObject); begin if OpenDialog1.Execute then begin CurrentFile := OpenDialog1.FileName; SaveStyles; Image.Picture.LoadFromFile(CurrentFile); RestoreStyles; end; end;