Cerrar Forma al Ser Creada

[AGAG4]

Como se podría Cerrar una Forma al momento de Ser Creada ó al momento de crearse sin Cerrar las Demás????

Lo que pasa es que en la FormaPrincipal.dpr arranco primero 2 Formas y después la forma principal:

Código Delphi [-]
....
  Application.Initialize;
  Application.Title := 'Aplicación de Prueba';
  Application.CreateForm(TdmBDPrueba, dmBDPrueba);
  Application.CreateForm(TdmFactPrueba, dmFactPrueba);
  Application.CreateForm(TdmEspPrueba, dmEspPrueba);

  //Forma #1  Activar Fecha Activa
  fFecTrabajo:= TfFecTrabajo.Create(Application);
  fFecTrabajo.ShowModal;
  fFecTrabajo.free;
 
  //Forma #2 Pedir Usuario y PassWord
  fUsuClave := TfUsuClave.Create(Application);
  fUsuClave.ShowModal;
  fUsuClave.free;
  //Forma Principal
  Application.CreateForm(TfMenuPrin, fMenuPrin);
  Application.Run;

Ahora en la Forma #1, al momento de crearse la forma busco la "Fecha Activa" si existe en la Base de Datos entonces tengo que Cerrar la Forma #1 y si no Existe me tiene que mostrar los datos para capturarla pero el detalle es que en el "OnCreate" en donde hago esto, pongo la instrucción CLOSE ó Forma.Close pero no me Cierra la Forma y ni el evento "FormActivate", lo que no quiero es que se alcanze a ver la forma.

Agradezco cualquier comentario.

[vic_ia]

hola...

creo que lo unico que tienes que hacer es en el evento OnCreate, sino se cumplen tus condiciones llamar al procedimiento Abort...

saludos....

[AGAG4]

No funciono Vicia, no cierra la forma al cumplirse la condición, alguna otra sugerencia????

De antemano Gracias.

[AGAG4]

ó bien como se puede llamar el ALT+F4 para cerrar la forma????

[jhonny]

Que sucede si simplemente haces todas tus validaciones y si es de cerrarla pues no la cierras si no que solo pones la propiedad visible del formulario fFecTrabajo en falso?.

[kes]

Basta con que en el evento OnPaint del formulario utilices el método Close.

Saludos.

[AGAG4]

Gracias a todos por responderme.

Primer Sr. Jhonny, no puedo poner la forma invisible porque el motivo de querer cerrar la forma despues de las validaciones es de que me muestre la siguiente forma(usuario y password)

y Segundo Sr. Kes voy a probar lo que me dice...
Que tengan buen día.

[keyboy]

Método 1 (correcto)

Haz la búsqueda de la fecha activa fuera del formulario antes de crearlo. Si la fecha no existe creas y muestras el formulario y si ya existe simplemente no creas ni muestras el formulario.

Método 2 (funcional pero lógicamente incorrecto)

Redefine el método ShowModal del formulario y haz ahí la búsqueda de la fecha antes que cualquier otra cosa. Si la fecha no existe llamas a inherited y si no existe no haces nada.

¿Por qué el primer método es correcto mientras que no lo es el segundo?

Porque la labor del formulario es la de capturar la fecha por parte del usuario; el qe dicha fecha exista o no en la base de datos es una cuestión aparte.

Bye

[AGAG4]

Asi lo hice KeyBoy, Gracias por sus Respuestas.
Valide antes de crear el Formulario es mejor opción.
Que tengan buen día.

[jhonny]

La solucion de keyboy es muy buena, y me alegro que te funcione todo...
En cuanto a lo de señor, jejejeje, eso me hace sentir un viejo... jejejeje.

[AGAG4]

Disculpe Sr. jhonny ó Perdon Jhonny
Gracias.
Que tenga buen día.