[Mitiay]

Подскажите как с имитировать прогресс бар.Когда доходит до 30% все обрывается и выскакивает сообщение с ошибкой.

[NumLock]

в таймере делать инкремент позиции и когда дойдет до 30 останавливать таймер, сбрасывать на 0, выдавать сообщение.

[Mitiay]

Сообщение от NumLock

в таймере делать инкремент позиции и когда дойдет до 30 останавливать таймер, сбрасывать на 0, выдавать сообщение.

Можно код?)))

[sariman]

До чего люди ленивые стали...
Вот самый простой вариант:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Position + 1;
  if ProgressBar1.Position >= 30 then
  begin
    Timer1.Enabled := False;
    ProgressBar1.Position := 0;
    MessageBox(Handle, 'Текст ошибки', 'Ошибка!', 16);
  end;
end;