Pergunta : Como mostrar esta tela do respingo por 3 segundos?

Olá!, o

I criou minha tela do respingo using o método mencionado aqui: rel= " nofollow " do " _blank " " do target= de " http://delphi.about.com/od/formsdialogs/a/splashscreen.htm do href= do necessidade do /formsdialogs/a/splashscreen.htm

I de http://delphi.about.com/od de mostrar a tela do respingo por 3 segundos antes de mostrar a ajuda principal de form.

Please. Thanks. class= do

Resposta : Como mostrar esta tela do respingo por 3 segundos?

Olhar, isto é o melhor

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

começar
FormSplashScreen: = TFormSplashScreen.Create (aplicação);
  tentativa
  FormSplashScreen.Show;
  Application.Initialize;
  FormSplashScreen.Update;
  Sono (3000);
  Application.CreateForm (TFormMain, FormMain);
  Application.CreateForm (TFormOptions, FormOptions);
  Application.CreateForm (TForm1, Form1);
  finalmente
  FormSplashScreen.Hide;
  FormSplashScreen.Free;
  extremidade;
  Application.Run;
extremidade.
Outras soluções  
 
programming4us programming4us