Crear y Destruir Formularios - Forma Correcta

[Neeruu]

Hola a Todos...

Capaz esta pregunta ya esta contestada en el foro, la busque pero no encontré...


Mi pregunta es la siguiente:
Cual es la manera correcta de crear un formulario?

Planteo el escenario:


Tengo una aplicación mdi que tiene su menú principal donde llama a los distintos form que se crean a demanda.
Ahora cuando hago click en un item del menú se va a crear un FormX.


Ahora cual es la forma correcta:

Definir una variable del Tipo TFormX y Crear el Fomulario.
Utilizar la variable que automaticamente se crea con el Form (FormX:TFormX)



Para Cerrar el formulario , tengo un ToolBar con un TWindowClose.
Pero este no asigna Nil a la variable FormX. ¿Lo correcto seria que asigne nil a la variable FormX en el evento destroy?

Y Porque en el Create de un Form, la Variable FormX es igual a Nil pero Self no? Cual es la diferencia?

Ahora voy a contar porque me surgen estas dudas...
Tengo una app con casi 300 formularios. en la mayoria de los formularios, en el create del mismo llamo a un procedimiento que me pinta los componentes de x color.
Hasta acá sin problemas. Pero resulta que ahora he tenido que agregar nuevos formularios y se da que aveces abro este form nuevo (FormX) y en el procedimiento que pinta los componentes me arroja un access violation. O se me da que abro un determinado form y luego el FormX y arroja el AV.

Llevo mas de una semana tratando de encontrar el porque con estos nuevos formularios se produce el error y no encuentro. Ya cree un proyecto nuevo, probé en otra pc, hice los formularios desde 0... Y nada el error persiste...

Entonces empece a ver mas detalladamente y note que (Yo siempre utilice la variable Form, que crea automáticamente el formulario) la primera ves que entra el formulario al procedimiento que pinta FormX = Nil, ahora la segunda vez ( Osea, lo cierro con el botón de cerrar TWindowCloe) y si lo abro de nuevo FormX tiene cosas adentro, no viene con Nil.

Puse FormX := Nil en el evento destroy del FormX y el problema se soluciono.
Ahora me queda la gran incógnita y es lo que me come la cabeza, de porque el error solo con esos formularios.

Llegue a pensar a al pasar algún tamaño de ejecutable o uso de memoria a lo mejor cambia la administración y por eso surge ahora el error.. la verdad no se...
Y por eso es que viene mi pregunta... ahora estoy pensando que a lo menor la forma en la que estoy creando y destruyendo los formularios no es la correcta, aunque esto no me responda porque en 299 Formularios no da el error y en el 300 si...(Puse estos mismos formularios en proyectos aun mas grandes y el error no se da)

[Neeruu]

Todo esto viene a raiz de lo publicado en este post:
http://www.clubdelphi.com/foros/showthread.php?t=92600

[Neeruu]

Hola... Como crean sus formularios....?????

[ElKurgan]

Para empezar, yo uso poco los formularios tipo DMI, más que nada porque en el trabajo diario no me hacen falta. Pero tengo entendido que cuando creas una ventana "hija" en un MDI se crea, pero cuando la cierras NO SE DESTRUYE, sino que se esconde. En estos casos, revive con un "Show" y no con un nuevo create.

Cuando creo formularios "modales", elimino de estos la variable "Formx: TFormx" que se crea automáticamente. Prefiero crearlos y liberarlos yo mismo desde código (No hace falta decir que hay que quitarlos de la parte "Autocreate" de las opciones del proyecto).

De todas formas no está de más echar un vistazo a La cara oculta de Delphi 4 (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=La_Cara_Oculta_De_Delphi_4_pdf_.zip) que, en el capítulo 13, tiene un extenso tutorial sobre "Técnicas de Gestión de Ventanas"

Saludos

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

Hola... Como crean sus formularios....?????

Comentas muchas cosas y es un tema delicado.
Lo primero que te diría es que elimines la variable que se crea automáticamente en cada formulario, porque es una variable global que suele dar problemas. El que has comentado tú y otros similares.
Crea tus propias variables de formulario donde las necesites. Una solución si debes reaprovecharlas es ponerlas a NIL cuando se destrruye el formulario tal y como has hecho.

[Neeruu]

Naftali, gracias...

Conoces alguna documentación donde se hable lo que estoy preguntando...

Ya mismo empezare a corregir el código de mi proyecto.... tengo para rato :(...

Si sabes de algún material de lectura, bienvenido...

Saludos.

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

Específicamente de esto no, pero en el FTP tienes bastantes manuales de Delphi. Algunos incunables como "La Cara Oculta de Delphi".

[gatosoft]

Buen día,

Personalmente estoy de acuerdo con lo expresado por Roman en el post #9 del hilo que enlazo aquí (https://www.clubdelphi.com/foros/showthread.php?t=66230)

Sin embargo hay una solucion que yo utilizo para evitar lidiar con los FreeAndNil, "releases" mal ubicados.

y es la siguiente:

1) Creo un Tform1 que es el MDIform y un tform2 que es el MDIChild
2) Elimino la variable automática que crea el Tform2 (form2), como sugiere ElKurgan
3) en el evento onclose del Tform2 agrego la linea: Action:= caFree;
4) Para efectos de la prueba agrego dos botones u opciones de menú en el form1.

a) el primer boton instancia formularios TForm2 sin asignarlos a variables (pues se liberarán con el Onclose.

procedure TForm1.NuevoFormulario1Click(Sender: TObject);
begin
With Tform2.Create(Self) do
Begin
inc(contador);
Caption:= IntTostr(contador);
show;
End;
end;

b) el segundo crea un formulario asignado a una única variable llamada MyFormX

procedure TForm1.formX1Click(Sender: TObject);
begin
if not Assigned(MyFormX) then
begin
MyFormX:= TForm2.Create(Self);
MyFormX.Show;
end else
MyFormX.BringToFront;
end;


PERO...!!! éste útlimo código solo funcionará una vez pues el Action:=caFree, libera la memoria pero la variable queda asignada por tanto Assigned(MyformX) solo será falso la primera vez...

entonces aqui utilizo un truco que me parece bastante seguro: Utilizo una variable de clase para indicar si el formulario está instanciado o no

unit Unit2;

type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
Class var EstoyOcupado: String;
end;


y en el Form1 cambio el llamado al boton:

procedure TForm1.formX1Click(Sender: TObject);
begin
if not Assigned(MyFormX) or (TForm2.EstoyOcupado <> 'SI') then
begin
MyFormX:= TForm2.Create(Self);
TForm2.EstoyOcupado:='SI';
MyFormX.Show;
end else
MyFormX.BringToFront;
end;


De ésta manera quedan asi los códigos

Form1:

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Nuevoform1: TMenuItem;
NuevoFormulario1: TMenuItem;
formX1: TMenuItem;
procedure NuevoFormulario1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure formX1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
contador: Integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

Var MyFormX: TForm2;

procedure TForm1.FormCreate(Sender: TObject);
begin
contador:=0;
end;

procedure TForm1.formX1Click(Sender: TObject);
begin
if not Assigned(MyFormX) or (TForm2.EstoyOcupado <> 'SI') then
begin
MyFormX:= TForm2.Create(Self);
TForm2.EstoyOcupado:='SI';
MyFormX.Show;
end else
MyFormX.BringToFront;
end;

procedure TForm1.NuevoFormulario1Click(Sender: TObject);
begin
With Tform2.Create(Self) do
Begin
inc(contador);
Caption:= IntTostr(contador);
show;
End;
end;

end.


Form2:

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
TForm2 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
Class var EstoyOcupado: String;
end;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TForm2.EstoyOcupado:='';
Action:= caFree;
end;

end.