Creacion Correcta de Forms???

[jbautista]

Hola que tal, bueno hace tiempo que trabajo con Forms creados en tiempo de ejecución, pero tratando de optimizar mi codigo he visto algunas formas de crear, mostrar y liberar Forms de diferentes maneras que me han causado un poco de confucion.

Lo que hago (y hasta el momento me ha funcionado) es lo siguiente:

Código Delphi [-]
/*
Desde un boton de un FormPrincipal creo y muestro nuevos Forms de la siguiente manera:
*/

procedure TForm_principal.FormatosClick(Sender: TObject);
begin
     Application.CreateForm(TForm_Imp_Formato, Form_Imp_Formato);
      Form_Imp_Formato.Show;
end;

/*
Al hacer lo anterior, obviamente quito la linea Application.CreateForm(...) del DPR.

Y para liberarlo, lo hago desde el Evento OnClose del Form creado de la sig manera:
*/

procedure TForm_Imp_Formato.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Release;
end;

Bueno esto funciona bien al menos ahorita para lo que hago, ya que el FormPrincipal va a estar abierto un tiempo indefinido:

*Pueden abrir un FormX y cerrarlo.
*Abrir uno nuevo, FormY y dejarlo abierto.
*Volver a abrir el FormX.

Cuando creo un Form, deshabito el boton que lo crea y lo muestra, asi evito que lo vuelvan crear y mostrar una 2a vez.

Pero ya NO quiero Deshabilitar el boton, si no que si le vuelven a dar Click una 2a vez, valide:

if //ya esta creado y en Show
{
Poner el Focus en Form
}
else //SI no esta creado
{
Crearlo;
Show;
}

Mis dudas son las siguientes:

¿Quisiera saber si hay alguna manera mas optima de crear, mostrar y liberar Forms?.
¿Como se si un Form ya esta creado para hacer la validación que necesito?

De antemano gracias.

[look]

Empezado por jbautista

Hola que tal, bueno hace tiempo que trabajo con Forms creados en tiempo de ejecución, pero tratando de optimizar mi codigo he visto algunas formas de crear, mostrar y liberar Forms de diferentes maneras que me han causado un poco de confucion.

Lo que hago (y hasta el momento me ha funcionado) es lo siguiente:

Código Delphi [-]/* Desde un boton de un FormPrincipal creo y muestro nuevos Forms de la siguiente manera: */ procedure TForm_principal.FormatosClick(Sender: TObject); begin Application.CreateForm(TForm_Imp_Formato, Form_Imp_Formato); Form_Imp_Formato.Show; end; /* Al hacer lo anterior, obviamente quito la linea Application.CreateForm(...) del DPR. Y para liberarlo, lo hago desde el Evento OnClose del Form creado de la sig manera: */ procedure TForm_Imp_Formato.FormClose(Sender: TObject; var Action: TCloseAction); begin Release; end;


Bueno esto funciona bien al menos ahorita para lo que hago, ya que el FormPrincipal va a estar abierto un tiempo indefinido:

*Pueden abrir un FormX y cerrarlo.
*Abrir uno nuevo, FormY y dejarlo abierto.
*Volver a abrir el FormX.

Cuando creo un Form, deshabito el boton que lo crea y lo muestra, asi evito que lo vuelvan crear y mostrar una 2a vez.

Pero ya NO quiero Deshabilitar el boton, si no que si le vuelven a dar Click una 2a vez, valide:

if //ya esta creado y en Show
{
Poner el Focus en Form
}
else //SI no esta creado
{
Crearlo;
Show;
}

Mis dudas son las siguientes:

¿Quisiera saber si hay alguna manera mas optima de crear, mostrar y liberar Forms?.
¿Como se si un Form ya esta creado para hacer la validación que necesito?

De antemano gracias.

Código Delphi [-]

  /// este evento va en el boton de creacion del form
  Form1 := TForm1.Create(nil);
  if NOT Assigned(Form1) then //SI El form no esta creado
  Begin
     Form1 := TForm1.Create(nil);
  END
  ELSE;
  Form1.Show;

//// en el evento onclose del form que llamaste
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(Form1);
end;

[look]

tambien aqui puedes ampliar un poco mas tus dudas

[jbautista]

look: Muchas gracias, es exactamente lo que necesitaba y el link ya me aclaro las dudas!

Saludos

[rgstuamigo]

Empezado por jbautista

.../*
Desde un boton de un FormPrincipal creo y muestro nuevos Forms de la siguiente manera:
*/

Código Delphi [-]
procedure TForm_principal.FormatosClick(Sender: TObject);
begin
     Application.CreateForm(TForm_Imp_Formato, Form_Imp_Formato);
      Form_Imp_Formato.Show;
end;

/*
Al hacer lo anterior, obviamente quito la linea Application.CreateForm(...) del DPR.

Para no estar borrando nada del .DPR deberias indicarle a Delphi que formulario debe crear y cuales no.. Ésto se consigue entrando en el menú Project>Opcions > Pestaña Forms, del IDE. Si te fijas en dicha pestaña hay 2 partes, la una dice: Auto-create Forms que es donde están todos tus formularios que delphi va crear en el .DPR al correr la aplicacion, la otra parte dice: Available Forms que son todos los formulario que delphi no los va a crear(instanciar) al iniciar la aplicacion(Incluso hay un combobox donde puedes selecionar cuál va ser tu formulario principal)
Tú debes decidir cuales se van a crear al correr la aplicacion y cuales no, tan solo debes pasarlo de un lado para el otro, eso ya es criterio tuyo.
Por otra parte el codigo que te propone look tiene una linea por demás, el código que te propone él ,quedaría mas o menos de esta manera:

Código Delphi [-]
/// este evento va en el boton de creacion del form
  if NOT Assigned(Form1) then //SI El form no esta creado
     Form1 := TForm1.Create(Application);
 
 Form1.Show;

Por supuesto no debes olvidar de destruirlo y ponerlo en nulo (nil) al cerrarlo tal como te ha indicado look,en el evento OnClose
Saludos...

[MAXIUM]

Me arroja un error de acceso de violación al crear el formulario disponible.

Tendra algo que ver el que tenga la aplicación como una instancia Mutex para evitar una doble ejecución.

[rgstuamigo]

Empezado por MAXIUM

Me arroja un error de acceso de violación al crear el formulario disponible.

Tendra algo que ver el que tenga la aplicación como una instancia Mutex para evitar una doble ejecución.

¿Cómo estás creando y destruyendo tu formulario?...
Pon algo de código....
Saludos...

[look]

no contestar, error