Formulario

[[oscarac]]

buenas noches
tengo un modulo de facturacion donde invoco a la pantalla de ingreso de datos de esta manera

Código Delphi [-]
procedure TfrmEmisionFactura.btnAgregaClick(Sender: TObject);
begin
  p_opcion := 0;
  While p_Opcion = 0 do
  Begin
    frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
    frmEmisionFacturaD.ShowModal;
  End;
end;

y en el formulario que invoco hay una opcion para agregar articulos y lo invoco de la siguiente manera

Código Delphi [-]
procedure TfrmEmisionFacturaD.btnAgregaClick(Sender: TObject);
begin
  _accion := 0;
  While _Accion = 0 do
  Begin
    CdsDetalle.Append;
    frmEmisionFacturaDDato := TfrmEmisionFacturaDDato.Create(nil);
    frmEmisionFacturaDDato.FormStyle := fsNormal;
    frmEmisionFacturaDDato.Visible := False;
    frmEmisionFacturaDDato.ShowModal;
  End;
end;

cuando ejecuto el programa funciona a la perfeccion la primera vez

luego, cuando grabo la factura se invoca el formulario "frmEmisionFacturaD" (se abre con normalidad)

pero sucede algo curioso, el campo tipo de documento no recibe el foco, hasta que yo presione alguna tecla
y luego cuando quiero agregar productos aparece el mensaje que adjunto.


PERO

si al momento de invocar el formulario "frmEmisionFacturaD" quitandole en el programa el "bucle"

Código Delphi [-]
While p_Opcion = 0 do
  Begin
  end..

no me aparece ningun error


en el destroy agrego lo siguiente en cada uno de los formularios

Código Delphi [-]
frmEmisionFacturaD := nil;

Código Delphi [-]
frmEmisionFacturaDDato := nil;

alguien tiene alfguna idea de lo que sucede?

[lucho6007]

Código Delphi [-]
procedure TfrmEmisionFactura.btnAgregaClick(Sender: TObject); begin   p_opcion := 0;   While p_Opcion = 0 do   Begin     frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);     frmEmisionFacturaD.ShowModal;
    frmEmisionFacturaD.Free; 
  End; end;

Te esta factando liberar el formulario, no hace falta poner el nil en el Destroy


Saludos,

[[oscarac]]

Si funciona, gracias
pero he visto que se aplica cuando el formulario es MODAL (ShowModal)
y que en el destroy no puedo usar el form1.free;

la pregunta es...
cuando un formulario no es modal, como lo libero ?

porque cuando hago esto.

Código Delphi [-]
    frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
    frmEmisionFacturaD.Show;
    frmEmisionFacturaD.Free;

el formulario aparece y al instante desaparece.

[Casimiro Notevi]

Empezado por oscarac

frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
frmEmisionFacturaD.Show; // Lo muestras
frmEmisionFacturaD.Free; // Lo eliminas.

el formulario aparece y al instante desaparece.

Por eso.

[CarlosReyesg]

Empezado por oscarac

Si funciona, gracias
pero he visto que se aplica cuando el formulario es MODAL (ShowModal)
y que en el destroy no puedo usar el form1.free;

la pregunta es...
cuando un formulario no es modal, como lo libero ?

porque cuando hago esto.

Código Delphi [-]
    frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
    frmEmisionFacturaD.Show;
    frmEmisionFacturaD.Free;

el formulario aparece y al instante desaparece.

para llamar un formulario con "Show" tienes que asignar el evento OnClose y asignar la variable "Action" con "caFree"

Código Delphi [-]
  
  frmEmisionFacturaD:= TfrmEmisionFacturaD.Create(nil);
  frmEmisionFacturaD.Show;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

en el caso de usar "ShowModal" yo lo uso de la siguiente manera

Código Delphi [-]
//Ejemplo 1
Application.CreateForm(TFrmMain, FrmMain); ///Esto es igual a FrmMain := TFrmMain.Create(Application)
   try
      FrmMain.ShowModal;
   finally
      FrmMain.DisposeOf; /// Delphi mayores a XE2
      // FreeAndNil(FrmMain);
   end;

  //Ejemplo 2
   Application.CreateForm(TFrmMain, FrmMain);
   try
      if FrmMain.ShowModal = mrOk then // para usarlo asi tienes que asignar la propiedad "ModalResult"
      begin
         ///////////////////////
         ///   Pones codigo que quieras
      end;
   finally
      FrmMain.DisposeOf;
   end;

[[oscarac]]

me quedo claro, gracias.