abrir y cerrar form2 desde form1
 

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

Para abrir el form2 que ya he creado con anterioridad utilizo:
Y para cerrarlo he intentado utilizar esto en el form2:
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í:

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

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

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.

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

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

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. :)

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ú ;)

Yo no he preguntado nada pero gracias igualmente, jejeje :D

Es cierto...:D, perdón por el despiste :o

Saludos. :)

si lo siento, lo tenia era en modal.

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 :)

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.

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