Insertar Registros

[aledieb]

Hola, el problema que veo es que estas usando un form modal, no importa que hagas si usas ModalResult por defecto el form se va a cerrar, además no estas controlando el resultado del form2, Lo que podes hacer en el btnSaveClick anular la condición:

Código Delphi [-]
     if chkDigitMode.Checked then
        ModalResult:=mrNone
     else
        ModalResult:=mrOk;

En el botón cancelar cerrar el form y en el aceptar/grabar solo grabar.

[cloayza]

Estimado aledieb probó el código?

Lo invito a que lo haga...y verá que está errado...

Saludos cordiales

[aledieb]

Empezado por cloayza

Estimado aledieb probó el código?

Lo invito a que lo haga...y verá que está errado...

Saludos cordiales

Recién probé el código, y se ejecuta como un form modal.

Y si estaba errado porque no vi el free al final.

Hice una modificación cambiando el showmodal por show y el form permanece en pantalla, siempre y cuando no deje el free.

Código Delphi [-]
class procedure TForm2.Execute;
begin
     with TForm2.Create(nil) do
     begin
          btnSave.ModalResult  :=mrOk;
          btnCancel.ModalResult:=mrCancel;

          ClearEdits();

          Show;

//          free;
     end;
end;

Hacer algo así el form se ejecutaría como desea (el código original) Sin probar

Código Delphi [-]
uses Unit2;
begin
     //Llamada a formulario de digitación...
     while condicion do 
     begin
        TForm2.Execute();
     end;
end

[aledieb]

Estima cloayza, mis sinceras disculpas.

Mire con mas cuidado e interprete mal el código (no vi el checkbox)

[cloayza]

Empezado por aledieb

Estima cloayza, mis sinceras disculpas.

Mire con mas cuidado e interprete mal el código (no vi el checkbox)

Estimado colega, pierda cuidado. Lo importante es que en esta comunidad estamos para dar una mamo, ser criticos y por sobre todo aportar...

Saludos cordiales

[Eduard23]

gracias estimado cloayza fue de gran ayuda su consejo con esto puder resolver mi problema muchas gracias y hasta una proxima vez