Foros Club Delphi - problema con opendialog

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - problema con opendialog (https://www.clubdelphi.com/foros/showthread.php?t=49548)

problema con opendialog

a ver, tengo un problema con open dialog. en mi aplicacion tengo un boton Examinar... para abrir un archivo. Cuando lo habres la ruta del archivo aparece en un edit, el codigo del boton es:

Código:

procedure TForm1.BExaminarClick(Sender: TObject);

begin

  OpenDialog1.Execute;

  if OpenDialog1.Execute then

   begin

     Edit1.Text:=(OpenDialog1.FileName);

end;

end;

El problema es q cuando inicio la aplicacion, le doy a examinar y se abre el dialogo de Abrir.Hasta aqui todo correcto.

Selecciono mi archivo a abrir y le doy a aceptar, y ahora en lugar de salir de la ventana de abrir archivo, me vuelve a abrir otra vez esta ventana.Le doy a aceptar de nuevo y ahora sí se me coloca la ruta del archivo en el edit.

Es decir, selecciono el archivo, acepto, y vuelve a salir para seleccionar archivo de nuevo, acepto otra vez y entonces funciona. No se por qué me sale 2 veces

Código:

procedure TForm1.BExaminarClick(Sender: TObject);

begin

  if OpenDialog1.Execute then

     Edit1.Text:=(OpenDialog1.FileName);



end;

Claro, porque estás ejecutando dos veces el OpenDialog1:

Código Delphi [-]  OpenDialog1.Execute;
  if OpenDialog1.Execute then

Quita la primera línea...

Edito: Se me han adelantado :mad:. Aquí hay gente más rápida que "Billy The Kid" :D:D.

jaja, vale, muchas gracias,vaya cosas mas tonta