Fórum ProgressBar #163621
30/05/2003
0
Eu vou abrir 3 tabelas quando iniciar meu programa SystemBol
TabelaCliente.Open;
TabelaPedidos.Open;
TabelaFornecedores.Open;
Eu queria colocar um PrograsBar para fazer essa espera na minha Tela (Form1).
Como montaria esse progressbar, que componetes usaria.
Obs Não sei nada desse ProgressBar, se possivel seja Claro.
Desde já muito agradecido.
TabelaCliente.Open;
TabelaPedidos.Open;
TabelaFornecedores.Open;
Eu queria colocar um PrograsBar para fazer essa espera na minha Tela (Form1).
Como montaria esse progressbar, que componetes usaria.
Obs Não sei nada desse ProgressBar, se possivel seja Claro.
Desde já muito agradecido.
Marcelototini
Curtir tópico
+ 0
Responder
Posts
30/05/2003
Oberdan
A forma mais simples seria você incrementar um valor ao progress bar
para cada table aberta, ou seja.
ProgressBar1.Max := 3;
TabelaCliente.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
TabelaPedidos.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
TabelaFornecedores.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
[]
Oberdan
para cada table aberta, ou seja.
ProgressBar1.Max := 3;
TabelaCliente.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
TabelaPedidos.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
TabelaFornecedores.Open;
ProgressBar1.Position := ProgressBar1.Position + 1;
[]
Oberdan
Responder
Gostei + 0
30/05/2003
Akpjunior
ProgressBar1.Max:=3; //Quantidade de Tabelas que você possui...
Form1.Caption:=´Abrindo tabela de clientes´;
TabelaCliente.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Form1.Caption:=´Abrindo tabela de pedidos´;
TabelaPedidos.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Form1.Caption:=´Abrindo tabela de fornecedores´;
TabelaFornecedores.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Form1.Caption:=´Abrindo tabela de clientes´;
TabelaCliente.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Form1.Caption:=´Abrindo tabela de pedidos´;
TabelaPedidos.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Form1.Caption:=´Abrindo tabela de fornecedores´;
TabelaFornecedores.Open;
ProgressBar1.Position:=ProgressBar1.Position + 1;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)