Warum verschwindet mein Splash nicht.

[Aurus]

Hallo

Ich habe in mein Programm ein Splash eingebunden.

Der Splash verschwindet wenn eine gewisse Zeit abgelaufen ist oder wenn ich eine Taste drücke oder wenn ich mit der Maus klicken. Dann wird eine Boolean Variable (blnSplash) True gesetzt.

Der Splash verschwindet zwar aber er ist im Taskmanager immer noch zu sehen.

Was mache ich falsch?


Gruss

Aurus

Delphi-Quellcode:

begin

  SplashF := TSplashF.Create(Application);
  Screen.Cursor := crHourGlass;
  SplashF.Show;
  SplashF.Refresh;


  Application.Initialize;
  Application.Title := 'Demo Programm ';
  Application.CreateForm(THauptansicht, Hauptansicht);
   Application.CreateForm(TEinstAll, EinstAll);
  Application.CreateForm(TSplashF, SplashF);

  while SplashF <> nil do
  begin
    Application.ProcessMessages;
    if (SplashF <> nil) AND (Hauptansicht.blnSplash = True) then
    begin
      SplashF :=Nil;
      SplashF.Free;
    end;
  end;

  Screen.Cursor := crDefault;
  Application.Run;

end;

[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]