Insertar Registros

[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