Progressbar

[Guest - Carlos -]

Tipo eu tenho um pequeno sistema de banco de dados que contem um splash na abertura ... mais eu queria colocar no splash uma progress bar que mostre o andamento do carregamento programa ... ou seja a barra fica carregando e quando chega no 100% abre o programa..... alguém pode me ajudar?

[Guest RM]

Eu fiz assim no executavel:

begin

form9:=tform9.create(application);//Form9 é a tela splash

form9.show;

form9.refresh;

Application.Initialize;

Application.Title := 'Tua aplicação';

Application.CreateForm(TForm1, Form1);

form9.gauge1.Progress:=10;//<<<<<<<<<<<<<<<<<<<<<<<<<

Application.CreateForm(TDataModule3, DataModule3);

form9.gauge1.Progress:=20;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TForm12, Form12);

form9.gauge1.Progress:=30;//<<<<<<<<<<<<<<<<<<<<<<<<<

Application.CreateForm(TForm13, Form13);

form9.gauge1.Progress:=40;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TDataModule19, DataModule19);

form9.gauge1.Progress:=50;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TPasswordDlg, PasswordDlg);

form9.gauge1.Progress:=60;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TForm22, Form22);

form9.gauge1.Progress:=70;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TForm23, Form23);

form9.gauge1.Progress:=80;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TForm24, Form24);

form9.gauge1.Progress:=90;//<<<<<<<<<<<<<<<<<<<<<<<<< Application.CreateForm(TForm26, Form26);

form9.gauge1.Progress:=100;//<<<<<<<<<<<<<<<<<<<<<<<<< form9.free;//libera o splash

Application.Run;

end.