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.

[pedrolazarus]

NO, se abre el formulario y funciona correctamente, luego al tu cerrarlo se libera, yo lo probe, ¿Tu lo probaste?

[ecfisa]

Hola ozsWizzard.

Otra opción es usando un TTimer (pestaña System) en Form2.

Form1:

Código Delphi [-]
...
implementation

uses Unit2;

...

begin
  TForm2.ShowForm; 
end;    
...

Form2:

Código Delphi [-]
  
...
  TForm2 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
    class procedure ShowForm;
  end;              
...
implementation

procedure TForm2.FormCreate(Sender: TObject);
begin
  Timer1.Enabled  := False;
  Timer1.Interval := 2000;  // milisegundos
  Timer1.Enabled  := True;
end;

class procedure TForm2.ShowForm;
begin
  if not Assigned(Form2) then
    Form2 := TForm2.Create(nil);
  Form2.Show;  // o ShowModal
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Close;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Form2 := nil;
end;

Saludos.

[ozsWizzard]

Empezado por pedrolazarus

NO, se abre el formulario y funciona correctamente, luego al tu cerrarlo se libera, yo lo probe, ¿Tu lo probaste?

No me hacía falta probarlo para saber que tengo razón, aún así, lo he probado una vez más para comprobar que tengo yo razón.

El Show muestra el formulario y continua la ejecución, de toda la vida. El Showmodal es la instrucción que hasta que no "acabes" con el formulario mostrado, no devuelve la ejecución a donde se ha mostrado el formulario.

Ahora que lo he probado, a pesar de saber que tengo razón, pruébalo tú

[ozsWizzard]

Empezado por ecfisa

Hola ozsWizzard.

Yo no he preguntado nada pero gracias igualmente, jejeje

[ecfisa]

Empezado por ozsWizzard

Yo no he preguntado nada pero gracias igualmente, jejeje

Es cierto..., perdón por el despiste

Saludos.

[pedrolazarus]

Empezado por ozsWizzard

No me hacía falta probarlo para saber que tengo razón, aún así, lo he probado una vez más para comprobar que tengo yo razón.

El Show muestra el formulario y continua la ejecución, de toda la vida. El Showmodal es la instrucción que hasta que no "acabes" con el formulario mostrado, no devuelve la ejecución a donde se ha mostrado el formulario.

Ahora que lo he probado, a pesar de saber que tengo razón, pruébalo tú

si lo siento, lo tenia era en modal.

[aitorqrv]

Hola perdón por la demora pero he tenido problemas técnicos y vacaciones de por medio...

He seguido lo que habéis ido comentando a lo largo de este hilo, pero no consigo echarlo andar, no se si alguno de vosotros podría subir algún lado el codigofuente completo para poder analizarlo y compararlo con lo que yo estoy haciendo y ver cual es mi error o tomarlo como referencia.

Gracias, un saludo.

[ecfisa]

Empezado por aitorqrv

Hola perdón por la demora pero he tenido problemas técnicos y vacaciones de por medio...

He seguido lo que habéis ido comentando a lo largo de este hilo, pero no consigo echarlo andar, no se si alguno de vosotros podría subir algún lado el codigofuente completo para poder analizarlo y compararlo con lo que yo estoy haciendo y ver cual es mi error o tomarlo como referencia.

Gracias, un saludo.

Hola aitorqrv.


Saludos

[aitorqrv]

Muchas gracias por el fichero, lo acabo de compilar y probar y me funciona correctamente. Ahora lo tengo que analizar y ver donde esta mi error.

Un saludo.

[Bobrcl]

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