abrir y cerrar form2 desde form1

[aitorqrv]

Hola estoy intentando abrir y cerrar un form (form2) automáticamente.

Para abrir el form2 que ya he creado con anterioridad utilizo:

procedure TForm1.FormCreate(Sender: TObject);
begin
 TForm2.Create(Self).Show;

end;

Y para cerrarlo he intentado utilizar esto en el form2:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Sleep(1000);
  form2.close;
end;

He buscado por internet otras alternativas de crear un form en tiempo de ejecución y de como cerrarlo pero no consigo cerrado. En el form2 he colocado un boton y al hacer un onclick si le pongo close; el form2 se cierra correctamente.

Estoy utilizando lazarus 1.0.10 para mac

Un saludo y muchas gracias.

Si quereis ver el código fuente lo tengo aquí:

https://docs.google.com/file/d/0B2ZO_lvYiBaUQ2doVVpsd1k4T0U/edit?usp=sharing

[Casimiro Noteví]

No lo pongas en el oncreate, mejor prueba en el onactivate

[pedrolazarus]

http://www.clubdelphi.com/foros/showthread.php?t=4336

[ozsWizzard]

¿En el TForm2.Create donde el dices que el objeto se llama Form2? Distinto sería si usas Application.CreateForm...

[pedrolazarus]

Prueba esto, a mi me funciono, tambien funciona con destroy en ves de free, esto lo colocas en el boton del formulario 1 o donde desees. al cerrar el form2 simplemente se libera, espero no estar equivocado.

    with Tform2.Create(Application) do
    try
      Show;
    finally
      free;
    end;

[ozsWizzard]

Empezado por pedrolazarus

Prueba esto, a mi me funciono, tambien funciona con destroy en ves de free, esto lo colocas en el boton del formulario 1 o donde desees. al cerrar el form2 simplemente se libera, espero no estar equivocado.

    with Tform2.Create(Application) do
    try
      Show;
    finally
      free;
    end;

Eso sería con Showmodal, no con show. Tal y como está ahí se abriría y cerraría el formulario de seguida.

[Bobrcl]

Muchas gracias, estaba buscando como abrir una ventana para hacer login, y este foro me dió muchas luces. elegí utilizar ShowModal.