title: Create animated splashscreen delphi 7
body: <p>I'm trying to make an animated splashscreen while my app loads his database.
  I already created a splashscreen but I want to make the image "move" from left to right while the db is getting converted. Been searching for a while now but all I could find is about progress bars...</p>
  
  <p>Here's my code:</p>
  
  <pre><code>SplashScreen := TSplashScreen.Create(Application) ;
  SplashScreen.Show;
  Application.Initialize;
  SplashScreen.Update;
  SplashScreen.lblStatus.Caption:='Loading...';
  SplashScreen.Update;
  SplashScreen.lblStatus.Caption:='Updating database...';
  SplashScreen.Update;
  Application.Initialize;
  Application.CreateForm(TfmMain, fmMain);
  Sleep(1000);
  
  Application.CreateForm(TfmPrefs, fmPrefs);
  Application.CreateForm(TfmCode, fmCode);
  Application.CreateForm(TfmEmps, fmEmps);
  Application.CreateForm(TfmRest, fmRest);
  Application.ShowMainForm:=FALSE;
  
  SplashScreen.Hide;
  SplashScreen.Free;
  Application.Run;
  </code></pre>
  
  <p>On my splashscrren form, I created 5 duplicates of the same image and while the Main Form is created, I want the image to be Visible and not visible in alternance... ex:</p>
  
  <pre><code>while my db loads... begin
  Splashscreen.Image1.Visible:=FALSE;
  SplashScreen.Update;
  Sleep(25);
  SplashScreen.Image1.Visible:=FALSE;
  SplashScreen.Update;
  SplashScreen.Image2.Visible:=TRUE;....
  </code></pre>
  
  <p>and so on!</p>
  
  <p>Any thoughts?</p>