[resolvido] Carregamento Do Progressbar?

[Simão Neto]

:D Turma é o seguinte, criei uma tela de splash para meu sistema (um minisistema), pois bem a mesma executa e chama a outra tela como é pra ser, + ai eu coloquei um progressbar para emfeitar + as coisas e o componente não carrega, e ai como eu faço pra ele carregar? O sistema inicia sem nem um problema o unico error é que o progressbar não carrega.

Se alquem puder me ajudar desde já agradeço. ;)

Esse foi o codigo que usei.

procedure TFrm_Tela_Inicial.Timer1Timer(Sender: TObject);

begin

Frm_Tela_Inicial.Show; // Inicia a tela de abetura

Frm_Tela_Inicial.Release;

sleep(2000); // O tempo que a tela fica na tela do monitor

Frm_Tela_Inicial.Refresh; // Tira a tela inicial da memoria liberando a mesma

Frm_Tela_Inicial:= nil;

ProBar.Position:= ProBar.Position+2;

If ProBar.Position = 100 THEN

timer1.Enabled:= False;

F_sistema.ShowModal; //Chama a tela do sistema

Application.Initialize; // Inicia o sistema

end;

Editado Junho 30, 2007 por Simão Neto

[Pirambu!]

Simão, tenta isso

procedure TFrm_Tela_Inicial.Timer1Timer(Sender: TObject);
begin
Frm_Tela_Inicial.Show; // Inicia a tela de abetura
Frm_Tela_Inicial.Release;
sleep(2000); // O tempo que a tela fica na tela do monitor
Frm_Tela_Inicial.Refresh; // Tira a tela inicial da memoria liberando a mesma
while probar.position = 100 do
begin
probar.position := probar.position + 2;
end;
If ProBar.Position = 100 THEN
timer1.Enabled:= False;
Frm_Tela_Inicial:= nil;

F_sistema.ShowModal; //Chama a tela do sistema
Application.Initialize; // Inicia o sistema
end;

onde estou não pra testar, ai e dar o retorno.

[Simão Neto]

;) Pirambu valeu vei pela dica acabei de testar + não deu certo. Bem o que vale é a intensão.

+ Já não tenho dúvidas sobre esse assunto pois recebir um tutorial ensinando como fazer uma tela splash

e junto a carregar uma Gauge bem o principio pros dois é o mesmo veio com alguns comandos a +

ai fiz algumas modificações e executou pefeitamente a aplicação. :D

;) Vou postar a dica pra galera que tem interese em saber como faz para carregar os componente Gauge e ProgressBar.

até + ..... B)