Alguem sabe me dizer como faço um form com barra de progresso?
O que ja fiz:
Criei um form normal com:
um panel, para mostrar os Labels
Label1. Vai memostrar a mensagem Aguarde!
Label2, vai mostrar as tabelas sendo indexadas
ProgressBar, faz o percentual.
A programação: Uma parte (o inicio)
FMenu.Cursor:= crMultiDrag;
FIndex:= TFIndex.Create(Application);
FIndex.ShowModal;
FIndex.Label1.Caption:= 'Aguarde!';
FIndex.Label2.Caption:= 'Indexando Tabelas';
begin
//TATIVID
FIndex.Label2.Caption:= 'Reorganizando TAtivid.db';
DataModulo.TATIVID.AddIndex('','CODIGO',[ixPrimary,ixUnique]);
FIndex.ProgressBar1.Position:= 3;
FIndex.Update;
//TCEMITERIO
FIndex.Label2.Caption:= 'Reorganizando TCemiterio.db';
DataModulo.TCEMITERIO.AddIndex('','CODIGO',[ixPrimary,ixUnique]);
FIndex.ProgressBar1.Position:= 5;
FIndex.Update;
//TCIDADE
FIndex.Label2.Caption:= 'Reorganizando TCidade.db';
DataModulo.TCIDADE.AddIndex('','CDCIDADE',[ixPrimary,ixUnique]);
FIndex.ProgressBar1.Position:= 7;
FIndex.Update;
etc, etc,etc
O FIM
FMenu.Cursor:= crDefault;
FIndex.Label1.Caption:= 'NOME DA EMPRESA';
FIndex.Label2.Caption:= 'NOME DO SISTEMA';
FIndex.Close;
FIndex.ProgressBar1.Position:= 100;
FIndex.Update;
ShowMessage ('Tabelas indexadas com sucesso!');
São no total de 30 tabelas, para cada uma tenho essa programação dentro de um
Menu.
Exemplo:
Menu - Opções - Indexando Tabelas - Abre o Findex e já saí mostrando.
O que acontece,depois que eu fecho o form é que começa a fazer a mas naum
mostra nada.
O que devo fazer?
O form esta no Avable Forms
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html