ProgressBar
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
Curtidas 0
Respostas
Oberdan
30/05/2003
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
GOSTEI 0
Akpjunior
30/05/2003
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;
GOSTEI 0