Cita:
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;
end;
end;
Hacer algo así el form se ejecutaría como desea (el código original) Sin probar
Código Delphi
[-]uses Unit2;
begin
while condicion do
begin
TForm2.Execute();
end;
end