Crear y Destruir Formularios - Forma Correcta

[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 que, en el capítulo 13, tiene un extenso tutorial sobre "Técnicas de Gestión de Ventanas"

Saludos

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

Empezado por Neeruu

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í

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.

Código Delphi [-]
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

Código Delphi [-]
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

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
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.