Avatar billede ncp Nybegynder
20. april 2002 - 16:40 Der er 1 kommentar og
1 løsning

lille problem...

Het, jeg ville lave sådan en splash, tror jeg nok det hedder - altså sådan en som f.eks. outlook viser når den starter... men kan ikke rigtigt få det til at funke...

her er den kode jeg bruger:
<...>
begin
  Application.Initialize;
  Application.CreateForm(TForm3, Form3);
  Form3.Show;
  Form3.ProgressBar1.Position := 25;
  Application.CreateForm(TForm1, Form1);
  Form3.ProgressBar1.Position := 50;
  Application.CreateForm(TForm2, Form2);
  Form3.ProgressBar1.Position := 75;
  Application.CreateForm(TFaknr, Faknr);
  Form3.ProgressBar1.Position := 100;
  Form1.Show;
  Form3.Close;
  Application.Run;
end.
<...>
Avatar billede dkn Nybegynder
20. april 2002 - 17:22 #1
Application.Initialize;

Form3:= TForm3.Create(Application);
Form3.Show;
Form3.Update;

While Form3.Timer1.Enabled do Application.ProcessMessages;

  Form3.ProgressBar1.Position := 25;
  Application.CreateForm(TForm1, Form1);
  Form3.ProgressBar1.Position := 50;
  Application.CreateForm(TForm2, Form2);
  Form3.ProgressBar1.Position := 75;
  Application.CreateForm(TFaknr, Faknr);
  Form3.ProgressBar1.Position := 100;

Form3.Hide;
Form3.Free;
Application.Run;


Put en timer i Form3, og på dens event:
Timer1.enabled := false;
Avatar billede ncp Nybegynder
20. april 2002 - 23:44 #2
ok... kan man gøre så Form3 bliver vist i 5 sek, før applicationen forsætter med at lave de andre forms ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester