[Mitiay]

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

[NumLock]

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

[Mitiay]

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

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

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

[sariman]

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

Код:

1 2 3 4 5 6 7 8 9 10

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;