Hola estoy intentando abrir y cerrar un form (form2) automáticamente.
Para abrir el form2 que ya he creado con anterioridad utilizo:
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
TForm2.Create(Self).Show;
end;
Y para cerrarlo he intentado utilizar esto en el form2:
Código:
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í:
Código:
https://docs.google.com/file/d/0B2ZO_lvYiBaUQ2doVVpsd1k4T0U/edit?usp=sharing