ninguém sabe fazer um progressbar funcionar?
obrigado!
Preciso fazer uma progressbar funcionar com table num banco paradox.
Preciso fazer uma progressbar funcionar com table num banco paradox.
Castilho
Curtidas 0
Respostas
Anonymous
07/03/2003
mais diga vc quer fazer o q ?
GOSTEI 0
Ltsilva
07/03/2003
Teste o seguinte código.
Table1.First;
ProgressBar1.Min:=1;
ProgressBar1.Max:=Table1.RecordCount;
ProgressBar1.Position:=0;
While Not Table1.Eof Do
Begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Table1.Next;
end;
Ok?
Table1.First;
ProgressBar1.Min:=1;
ProgressBar1.Max:=Table1.RecordCount;
ProgressBar1.Position:=0;
While Not Table1.Eof Do
Begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Table1.Next;
end;
Ok?
GOSTEI 0