animierter Splashscreen mit mehreren Timern für Animation

[PAX]

nabend freunde!

ich verwende in meinem programm beim start einen splash-screen, welchen ich ein bisschen animiert habe. dafür brauchte ich mehrere timer. leider musste ich feststellen, dass wenn ich diesen splash einbaue, die ontimer-ereignisse nicht anspringen. ich hab gehört, dass dies erst ab application.run möglich sein soll?

nagut. dann bräuchte ich eine alternative variante, den splash zu realisieren.

ich danke euch schon mal, für eure hilfe!
viva los tioz!


hier der code:

Delphi-Quellcode:

program Project1;

uses
  Forms, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Siegel1 in 'Siegel\Siegel1.pas' {Siegel},
  Splash1 in 'Splash\Splash1.pas' {Form23z};
{$R *.res}

begin
// Produktsiegel            (dieser Splash ist animiert)
 Application.Title := 'Produktsiegel';
 Siegel := TSiegel.Create(Application);
 Siegel.Show;
 Application.Initialize;
 Siegel.Update;
  Sleep(1500);
 Siegel.Hide;
// Splash Screen            (und der Bursche hier nicht) (also einfach nur ein Bild)
 Application.Title := 'Splash Screen';
 Form23z := TForm23z.Create(Application);
 Form23z.Show;
 Application.Initialize;
 Form23z.Update;
  Sleep(1500);
 Form23z.Hide;

// Hauptprogramm
 Application.CreateForm(TForm1, Form1);
  Siegel.Free; Form23z.Free;
 Application.Title := 'Fleissnerin'' with Fleissnerer';
 Application.Run;
end.

PAX