Tutorial: Splash Screens

[bacci]

[quote="Kernel32.DLL"]@DymonD

Jepp, so in etwa...

In der Delphi 5 Hilfe steht:

Delphi-Quellcode:

begin
  Application.Initialize;
  with TForm5.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;   // Startbildschirm mit ProgressBar anzeigen
    Update; // Anzeige von Form5 auslösen
    Application.CreateForm(TForm1, Form1);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm2, Form2);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm3, Form3);
    ProgressBar1.StepBy(25);
    Application.CreateForm(TForm4, Form4);

    ProgressBar1.StepBy(25);
  finally
    Free;
  end;
  Application.Run;
end.

[quote]

So ... leider ist mein Delphi wissen noch vieeeel zu wenig, ich hab das auch so versucht, aber hat nicht geklappt, die ProgressBar zeigt nichts an.
Habe mal die RzProgressbar versucht, auch da klappts nicht.

kann mir jemand sagen was ich schon wieder falsch mache, bzw vergessen habe ;-(

Mein dpr- file:

Delphi-Quellcode:

program Kundenverwaltung;

uses
  Forms,
  form_kunden in 'form_kunden.pas' {kunden},
  main in 'main.pas' {Master},
  form_mitarbeiter in 'form_mitarbeiter.pas' {Mitarbeiter},
  form_artikel in 'form_artikel.pas' {Artikel},
  form_auftragsverwaltung in 'form_auftragsverwaltung.pas' {Auftragsverwaltung},
  form_bestellung in 'form_bestellung.pas' {bestellung},
  form_rechnung in 'form_rechnung.pas' {Rechnung},
  splash in 'splash.pas' {Form1},
  form_alte_bestellung in 'form_alte_bestellung.pas' {alte_bestellungen};

{$R *.res}

begin
 //


Form1 := TForm1.Create(Application);
  with TForm1.Create(nil) do
 try
RzProgressBar1.visible:=true;
RzProgressBar1.percent:=0;
  Form1.Show;
  Form1.Refresh;
  Application.Title := 'KAV - IDL stone solutions';
  Application.Initialize;
  Application.Title := 'IDL KAV';
  Application.CreateForm(TMaster, Master);
  Application.CreateForm(Tkunden, kunden);
RzProgressBar1.percent:=40;
  Application.CreateForm(Tbestellung, bestellung);
  Application.CreateForm(TRechnung, Rechnung);
RzProgressBar1.percent:=60;
  Application.CreateForm(Talte_bestellungen, alte_bestellungen);
  Application.CreateForm(TMitarbeiter, Mitarbeiter);
RzProgressBar1.percent:=80;
  Application.CreateForm(TArtikel, Artikel);
  Application.CreateForm(TAuftragsverwaltung, Auftragsverwaltung);
RzProgressBar1.percent:=100;
RzProgressBar1.visible:=false;

  Finally
// SplashScreen Fenster freigeben
 Form1.InitializationDone := True;
end;
//  while form1 <> nil do
//  Application.ProcessMessages;
  Application.Run;
end.

Danke für eure Mühe, aber nach 2 Tagen Google und Forum durchsuchen hab ich jetzt aufgegeben und frage dann doch ... ;-((