Ver Mensaje Individual
  #1  
Antiguo 31-05-2024
aledieb aledieb is offline
Miembro
 
Registrado: jun 2005
Ubicación: Buenos Aires, Argentina
Posts: 147
Reputación: 22
aledieb Va por buen camino
Cita:
Empezado por cloayza Ver Mensaje
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
__________________
Suerte
Alejandro

Última edición por aledieb fecha: 31-05-2024 a las 19:31:22.
Responder Con Cita