VPF::ProgressBar - Форум программистов

s1lver

Дата 30.4.2008, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 580
Регистрация: 14.12.2007
Где: Россия

Репутация: нет
Всего: нет

На форме расположен TTimer значение Interval:=3000, и ProgressBar.
Вообщем мне нужно чтобы в течение этого времени он непрерывно работал, ну или хотябы дошел до конца.
Пробовал так:

Код


 ProgressBar1.Position := ProgressBar1.Position + 1;
 ProgressBar1.Position:=300;

но он у меня заполняется сразу.... smile

Подскажите, если не трудно, пожалуйста.

--------------------

Я собрался жить вечно - пока все идет нормально!

Rodman

Дата 30.4.2008, 22:06 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Код


ProgressBar1.Position := ProgressBar1.Position + 1;

оставь тока это

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Poseidon

Дата 30.4.2008, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(s1lver @ 30.4.2008, 21:56

)

Вообщем мне нужно чтобы в течение этого времени он непрерывно работал

В течении какого времени? Этих трех секунд?

Ставим в инспекторе:
ProgressBar1.Max:=100;
Timer.Interval:=30

Код


procedure TForm1.TimerTimer(Sender: TObject);
begin
ProgressBar.Position:= ProgressBar.Position+1;

if ProgressBar.Position = ProgressBar.Max
then Timer.Enabled:= False;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Данкинг

Дата 30.4.2008, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Дык, максимальное значение небось не выставлено.

--------------------

There's nothing left but silent epitaphs.

s1lver

Дата 1.5.2008, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 580
Регистрация: 14.12.2007
Где: Россия

Репутация: нет
Всего: нет

Спасибо за помощь. smile

Вообщем я ще вот так попробовал.

Код


with ProgressBar1 do
begin
SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));
Perform(PBM_SETMARQUEE, 1, 50);
end;

Вообщем выглядет даже лучше...

--------------------

Я собрался жить вечно - пока все идет нормально!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »