Creacion de formas

[dec]

Hola,

Jesusito de mi vida, cien formularios... desde luego parecen muchos para que se creen "de entrada", porque, ¿van a utilizarse los cien formularios en una sesión de la aplicación? Parecen muchos, desde luego. O al menos a mí me lo parecen.

Yo creo que lo suyo sería que los formularios se crearan cuando fueran necesarios, y se liberaran cuando dejaran de serlo. Esto dependerá de la función de los formularios en cuestión. Por regla general, cuando se muestra un formulario "modalmente" se hace algo así:

Código Delphi [-]
var
  frm: TMiFormulario;
begin
  frm := TMiFormulario.Create(Self);
  try
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

O algo como esto, si se precisa el resultado del formulario "modal":

Código Delphi [-]
var
  frm: TMiFormulario;
begin
  frm := TMiFormulario.Create(Self);
  try
    if frm.ShowModal = mrOk then
    begin
      // Lo que te sea menester aquí
    end;
  finally
    // Pero, en todo caso
    frm.Free;
  end;
end;

[Neftali [Germán.Estévez]]

Estoy de acuerdo con David, no crees 100 pantallas al inicio.
Añado que si las abres nomodales, puedes dejar que se liberen automáticamente añadiendo al evento OnClose:

Código Delphi [-]
  Action := caFree;

[Tauro78]

Gracias por sus rapidas respuestas.