ProgressBar

@Redsnake · Регистрация: 16.11.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте!
У меня есть ProgressBar. Я хочу, чтобы каждые 2 секунды его позиция уменьшалась на 1. Как это реализовать? Спасибо за внимание!
P.S Пробовал так, но ничего не получилось

Delphi

1
2
3

if sProgressBar2.Position > 0 then
sProgressBar2.Position:=sProgressBar2.Position-1;
if sProgressbar2.Position=0 then

@Man2201 · 25.03.2014, 16:03

поставить таймер, интервал в 2 секунды, в событии onTimer

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

if sProgressBar2.Position > 0 then
sProgressBar2.Position:=sProgressBar2.Position-1;

только изначально задать процессбару ненулевое значение, запустить таймер, и решить что делать когда позиция процессбара дойдет к 0.

@Man2201 76 / 76 / 4 Регистрация: 25.04.2010 Сообщений: 296
	25.03.2014, 16:03	2
	поставить таймер, интервал в 2 секунды, в событии onTimer Сообщение от Redsnake if sProgressBar2.Position > 0 then sProgressBar2.Position:=sProgressBar2.Position-1; только изначально задать процессбару ненулевое значение, запустить таймер, и решить что делать когда позиция процессбара дойдет к 0. 1