Тема: ProgressBar
Показать сообщение отдельно
  #1  
Старый 14.10.2008, 08:09
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 163
Репутация: -1588
Печаль ProgressBar

Уважаемые специалисты помогите с 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;
Ответить с цитированием