Fórum Usando o ProgressBar ( carregando...) #364003

Fala ai Galera,

Tenho um codigo que exporta minha tabela do Dbgrid para o Excel só que esse codigo é um FOR e dependendo da tabela ele demora uma pouco , estou tentando usar o Componente ProgressBar para fazer um tipo Exportando e que mostre 100¬ algo assim, mas não estou conseguindo usar esse componente, será que alguem saberia me ajudar.

Segue e codigo para Exportar do Dbgrid para o Excel.


procedure TF_registro.BitBtn4Click(Sender: TObject);

var linha, coluna : integer;
var planilha : variant;
var valorcampo : string;
begin


planilha:= CreateoleObject(´Excel.Application´);
planilha.WorkBooks.add(1);
planilha.caption := ´Exportando dados para o Excel´;
planilha.visible := true;

DM.ClientDataSet_REGISTRO.ApplyUpdates(1);
DM.ClientDataSet_REGISTRO.First;

for linha := 0 to DM.ClientDataSet_REGISTRO.RecordCount - 1 do
begin
for coluna := 1 to DM.ClientDataSet_REGISTRO.FieldCount do

begin
valorcampo := DM.ClientDataSet_REGISTRO.Fields[coluna - 1].AsString;
planilha.cells[linha + 2,coluna] := ´´´´ + valorCampo;

end;
DM.ClientDataSet_REGISTRO.Next;
begin

end;
end;
for coluna := 1 to DM.ClientDataSet_REGISTRO.FieldCount do
begin
valorcampo := DM.ClientDataSet_REGISTRO.Fields[coluna - 1].DisplayLabel;
planilha.cells[1,coluna] := ´´´´ + valorcampo;

end;
planilha.columns.Autofit;

end;