Carregando

[Perfect Lion]

E ai galera alguém pode me encinar como fazer uma tela carregando dados e mostrando os dados que estão carregando?

....Perfect Lion...

[Morphadron]

Uma barra de Progresso?????

É bem simples, trata-se de abrir por código todas as tabelas na entrada do programa, portanto deixe todas as tabelas fechadas no datamodule.

procedure DataModule.OnCreate;

var

Tabela, i: Integer;

begin

Tabela := 0;

for I := 0 to ComponentCount -1 do

if Components is TTable then

with TTable(Components) do

if (Tag = 9) and not Active then

try

Inc(Tabela);

lblInfo.Caption := Format('Carregando Processos (%d/%d)', [Tabela, Total]);

lblInfo.Refresh;

Application.ProcessMessages;

Open;

except

Raise;

end;

[Perfect Lion]

AI EU NUM ENTENDI MUITO BEM ESSE CODIGO TEM COMO você ME MANDAR UM EXEMPLO PARA QUE EU POSSA ABRIR E ENTENDER OS CODIGOS C FOR POSSIVEL EU AGRADEÇO VALEU....

você PODE MANDAR NO MEU E-MAIL OU OSPEDAR PARA QUE OUTROS também POSSAM APRENDER

ERICKLEAO@POP.COM.BR

FUIZ....

....PERFECT LION.....

[Morphadron]

Tipo você quer ver uma barrinha de progresso...

Coloque um timer, e um ProgressBar

Dê um duplo clique no timer, e digite esse código:

progressBar.Progress:=Progressbar.Progress+1

Pronto você acabou de ver a barrinha se mexer, lembre-se q se você mexer com as propriedades do timer, a barra também se modificará....

Abraços!!!!!!!!!