Que salte una ventana a los 10 segundos

[gontxalo]

Hola.
En una aplicación vcl quiero que al ejecutarse, salte el form1, pero que el form2 salte encima del 1 y que el usuario no pueda manejar el form1 hasta que cierre el dos. Para ello he puesto el siguiente code:

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.ShowModal;
end;

Funciona.

Pero quiero que un Form3 salte a los 10 segundos de que el Form 1 esté abierto. Esto como lo puedo hacer?

[Neftali [Germán.Estévez]]

Añade al form1 un Timer con Interval=10000 y en el evento OnTimer pon lo siguiente:

Código Delphi [-]
   Form3.ShowModal;
   Timer1.Enabled := False;

[gontxalo]

Hola Neftali.
Como añado un timer con intervalo 10000 al form1 ?

Y en los eventos del form1, no encuentro ninguno que sea OnTimer para ponerle el code:
Form3.ShowModal;
Timer1.Enabled := False;
Lo siento pero soy nuevo.
Gracias.

[fidel]

Hola:

El timer es un componente que tienes tu que añadir, está en la pestaña System.
El intervalo es una propiedad del TTimer, la propiedad Interval, le pones ese valor y listo.

Un saludo.

[gontxalo]

Hola
Perfecto
Ya lo tengo
Funciona.
Te da una alegría cuando van funcionando las cosas...

[gontxalo]

Una cosa
Lo que me he fijado es que así salta esta ventana cada 10 segundos.
Pero si lo que quiero es que salte sólo una vez a los 10 segundos de que se ejecute la aplicación?
Como lo hago?