Splash

[kabessa 0]

Como fazer um splash com uma barra mostrando q esta carregando o sistema...agradecido desde de ja

[InuTaishou 0]

Colega, fiz uma busca e encontrei no ActiveDelphi:

Segue um exemplo, que ao meu modo de ver, é o melhor, pois só exibe o SplashScreen enquanto o sistema e carregado.1- Vá no menu Project e depois em View Source.será exibido o código do programa.. como exemplo abaixo:program ControlFin;usesForms,Principal in 'Principal.pas' {Form1},Login in 'Login.pas' {FrmLogin},{$R *.RES}beginApplication.Initialize;Application.Title := 'ControlFin - Controle Financeiro';Application.CreateForm(TForm1, Form1); <--Antes da linha selecionada Application.CreateForm(TForm1, Form1), escreva:FrmSplash := TFrmSplash.Create(Application);FrmSplash.Show;FrmSplash.Update;Lembrando que FrmSplash é o nome do Form do SplashScreen...no final do código do programa:Application.Run; <--end.você deverá inserir antes da linha marcada o seguinte código:FrmSplash.Hide;FrmSplash.Free;ficando assim:program ControlFin;usesForms,Principal in 'Principal.pas' {Form1},Login in 'Login.pas' {FrmLogin},{$R *.RES}beginApplication.Initialize;Application.Title := 'ControlFin - Controle Financeiro';FrmSplash := TFrmSplash.Create(Application); <--FrmSplash.Show; <---FrmSplash.Update; <--Application.CreateForm(TForm1, Form1);FrmSplash.Hide; <--FrmSplash.Free; <--Application.Run;end.Assim, o form será exibido somente durante o carregamento do sistema. Após a criação dos Forms, é bom por o código FrmSplash.Update, pra dar um Refresh na tela do Form, pra não dar aquele efeito branco em que certos sistemas dão.Bom, essa é minha opinião, qualquer erro no código ou dúvida favor entrar em contato.Fellipe Henriquefellipe@rodoviariolider.com.br

Cabem algumas alterações para fazer a barra de progresso... Veja, ficaria mais ou menos assim o código do dpr:

program ControlFin;usesForms,Principal in 'Principal.pas' {Form1},Login in 'Login.pas' {FrmLogin},{$R *.RES}beginApplication.Initialize;Application.Title := 'ControlFin - Controle Financeiro';FrmSplash := TFrmSplash.Create(Application); <--FrmSplash.Show; <---FrmSplash.Update; <--Application.CreateForm(TForm1, Form1);FrmSplash.ProgressBar.Position := 50;Application.ProcessMessages;Application.CreateForm(TForm2, Form2);FrmSplash.ProgressBar.Position := 100;Application.ProcessMessages;FrmSplash.Hide; <--FrmSplash.Free; <--Application.Run;end.

Note que é 50 e 100 porque só são dois... Para 3: 33, 66, 100... Para 4: 25, 50, 75, 100... E assim por diante...[]'s,

[kabessa 0]

aeeee kra muito obrigado.....ajudo prakralho vlw mesmo