Código Delphi [-] procedure TForm1.FormCreate(Sender: TObject); begin OpenDialog1.Filter:= 'Archivos Adobe PDF(*.pdf) |*.PDF'; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ACroPDF1.LoadFile(OpenDialog1.FileName); end;
procedure TForm1.FormCreate(Sender: TObject); begin OpenDialog1.Filter:= 'Archivos Adobe PDF(*.pdf) |*.PDF'; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ACroPDF1.LoadFile(OpenDialog1.FileName); end;