появление картинки при выполнении кода

[russian-stalker]

И что вам мешает? Можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
t:tmemorystream;
begin
t:=tmemorystream.Create;
Gauge1.MinValue:=0;
gauge1.MaxValue:=100*10000;
gauge1.Progress:=0;
for i:=0 to 100*10000 do
begin
t.Seek(i,soBeginning);
t.Write(i,1);
gauge1.Progress:=i;
end;
t.Free;
end;

[kate158]

кароче. все. получилось.объясняю.я просматриваю экселешные файлы выбираю нужную инфу, сохраняю в файл.

ProgressBar1.Min:=0;
ProgressBar1.Max:=strtoint(edit5.text)-1;//общее количество xls файлов
... 
..цикл по i
E  := CreateOleObject('Excel.Application');//цикл где просматриваю все файлы
   E.DisplayAlerts  := False;
   E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
    ProgressBar1.Position:=i;//мега код

вот и все что нужно было.
уж извините за настойчивость..

[Stilet]

уж извините за настойчивость..

Не страшно. Прогрессбар нормальное решение. Я раньше использовал еще анимацию тикающего секундомера, чтоб пользователь видел что прога не висит.

[grenles]

Я всегда делаю так. (Пришел к этому опытным путем)

1. Показываю прогресс баз, типа бегунка с процентами
2. Показываю реальные цифры, типа 10 / 1250.
3. Показываю время выполнения и расчетное время до конца.
вр_начало
вр_начала_операции
вр_конца_операции.
и вывожу все это где-то в окошке.
Для полной информации можно еще выводить и путь и имя файла.
Хотя это несколько замедляет работу, зато дает информацию Юзеру.
Можно делать в ListBox тоже самое в том самом показываемом окне. Типа

ListBox.Item.Add("номер (всего) Путь файл время вып")

а самый простой вариант.... - Показал окно и грозную надпись
"Жди, и не скучай"