Показать сообщение отдельно
  #5  
Старый 01.09.2009, 01:34
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

В общем делаете в таком стиле:
Код:
procedure TForm32.Button1Click(Sender: TObject);
var
  I: Integer;
begin
 Form33.FormStyle := fsStayOnTop;
 Form33.ProgressBar1.Max := 5000;
 Form33.ProgressBar1.Position := 0;
 Form33.Show;
 for I := 0 to Form33.ProgressBar1.Max
 do begin
    Memo1.Lines.Add('Item'+IntToStr(i));
    Form33.ProgressBar1.StepIt;
    Application.ProcessMessages;
    end;
 Form33.Hide;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием