Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin // si aparecio... // que hay que hacer... end end;
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin // si aparecio... // que hay que hacer... end end;