Уважаемые специалисты помогите с ProgressBarom начинающему.
Подскажите где я ошибаюсь.
После нажатия BitBtn2 идет выгрузка в Excel, хотелось бы чтобы процесс формирования документа отображался на ProgressBar. У меня получается что при нажатии кнопки БАР сдвигается на 20% и стоит до окончания формирования документа. Открывается Exel с отчетом и показывает БАР что отработал на 100% .Подскажите где я на грабли наступил.
И вторая просьба. Как сделать чтобы ProgressBar работал не по таймеру а брал реально отработанный код? Заранее благодарю!!!
Код:
procedure TForm3.BitBtn2Click(Sender: TObject);
var
Excel,Colum,Rows:Variant;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Workbooks.Add;
Excel.ActiveSheet.PageSetup.LeftMargin:= Excel.Application.InchesToPoints(0.80);
Excel.ActiveSheet.PageSetup.RightMargin:= Excel.Application.InchesToPoints(0.80);
Excel.ActiveSheet.PageSetup.TopMargin:= Excel.Application.InchesToPoints(1.0);
Excel.ActiveSheet.PageSetup.BottomMargin:= Excel.Application.InchesToPoints(1.0);
Excel.ActiveSheet.PageSetup.Orientation:= 2;
begin
ProgressBar1.Position := ProgressBar1.Position + 20;
if ProgressBar1.Position <= 100 then
begin
Timer1.Enabled := True;
Excel.ActiveWorkBook.WorkSheets[1].Name:='4 кв';
Excel.ActiveWorkBook.WorkSheets['4 кв'].Range['A1'].Select;
Excel.Selection.RowHeight:=5.25;
{остальная часть программы}
Excel.Visible:=True;
