splash screen con progressbar delphi

[ecfisa]

Hola granodetoro.

Como te dije antes disculpas por no leer bién el título de tu mensaje, te pongo un ejemplo del uso del ProgressBar en el splash.

Al formulario 'Logo' del mensaje anterior agregale un TProgressBar.

Código Delphi [-]
program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Logo},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

const
  Delay= 500;  // tiempo de demora para que se pueda visualizar
  MaxForms = 3; // número de forms que se abren

{$R *.res}
begin
  Application.Initialize;
  Logo:= TLogo.Create(nil);
  Logo.ProgressBar1.Max:= MaxForms;  // número de forms
  Logo.Update;
  Logo.ProgressBar1.StepIt; Sleep(Delay); // avanza ProgressBar y tiempo de espera para visualizar
  Application.CreateForm(TForm1, Form1); // crea un form
  Logo.ProgressBar1.StepIt; Sleep(Delay); // avanza ...
  Application.CreateForm(TForm3, Form3); // crea otro form
  Logo.ProgressBar1.StepIt; Sleep(Delay); // ...
  Application.CreateForm(TForm4, Form4);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Logo.Free;
  Application.Run;
end.

El tiempo de espera es sólo a fin de que visualices el avance en el ejemplo. Lo podés cambiar o eliminar, lo normal es que el tiempo de demora esté dado por alguna actividad de la aplicación. (como la carga de algún recurso por ejemplo)


Un saludo.