Problema con opendialog

[Bobok]

Hola,que tal? Tengo un problema con un opendialog. Cuando le doy Cancelar me abre el archivo de todas formas.Como lo puedo solucionar??? Gracias.

[[seoane]]

¿Puedes poner el código que utilizas?

[Bobok]

Si,perdon. Pense que seria alguna propiedad del opendialog que me olvide de poner,por eso crei que no seria necesario el codigo. El Opendialog tiene el filter para que solo abra archivos de excel.

Código Delphi [-]
procedure TfrmMain.btnAbrirClick(Sender: TObject);
begin
  If Fnuevabusqueda = true then
    begin
      if MessageDlg ('Realizar una nueva busqueda?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
        then begin
             ProgressBar1.Free;
             LimpiarGrillas;
             Opendialog1.Execute;
             self.Refresh;
             FArchivoexcel := Opendialog1.FileName;
             Grillaexcel.LoadFromXLS(Farchivoexcel);
             Barraestado.SimpleText := Opendialog1.Filename;
             end
        else
    end;
  if Fnuevabusqueda = false
    then begin
         Opendialog1.Execute;
         self.Refresh;
         FArchivoexcel := Opendialog1.FileName;
         Grillaexcel.LoadFromXLS(Farchivoexcel);
         Barraestado.SimpleText := Opendialog1.Filename;
         end;
end;

//Que bueno que leiste el Stick, acabo de editar tu mensaje para aplicar las etiquetas y puedas ver como se usan

[[seoane]]

Bien, el problema es que el método "Execute" lo debes de usar así:

Código Delphi [-]
if Opendialog1.Execute then
begin
  // Aqui abres el documento
end else
begin
  // Si entramos aqui, es que pulsamos Cancelar
end;

PD: Para incluir código en tus mensajes, hazlo dentro de las etiquetas [delphi][/delphi] se vera mucho mas claro.

[Bobok]

Bueno, muchas gracias. Justo acababa de leer el sticky sobre el uso de etiquetas y estaba por modificarlo para que sea mas legible el codigo!!!