| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цикл [D7, XP]

Страницы:   < 1 2 >

Daedr ©   (2007-08-23 15:03:00) 

Есть ли способ заполнить ProgressBar фиктивно, т.е. заполнение идёт само по себе без привязки к какому-либу действию, я использую цикл, но прога виснит, можно ли реализовать цикл подругому? Только по-русски если можно=)

---

-=Le][=-   (2007-08-23 15:17:00) [21]

Германн ©

Об TThead слишал?

---

Daedr   (2007-08-23 15:16:00) [22]

> Сергей М.

От тебя другого и не ожидал=)

---

Германн   (2007-08-23 15:16:00) [23]

> -=Le][=- ©   (23.08.07 15:14) [7]
>
> После x:=x+1; вставь Application.postmessage
>

Ещё хлеще :)

---

-=Le][=-   (2007-08-23 15:16:00) [24]

или после ProgressBar1.Position:=x;

---

Сергей М.   (2007-08-23 15:15:00) [25]

> Только по-русски если можно


По-русски ?

Да изволь)

ИДИ ТЫ НА чтение элемнтарных букварей по Делфи !)

---

Германн   (2007-08-23 15:15:00) [26]

> -=Le][=- ©   (23.08.07 15:13) [5]
>
>



> Окно должно запускаться в отдельном потоке

Это, пардон, как?

---

-=Le][=-   (2007-08-23 15:14:00) [27]

После x:=x+1; вставь Application.postmessage

---

Германн   (2007-08-23 15:14:00) [28]

> Ega23 ©   (23.08.07 15:06) [1]


> можно и по-русски:

Но с ошипками :)

---

-=Le][=-   (2007-08-23 15:13:00) [29]

> Только по-русски если можно=)

Нельзя! НЕ компилируется! :-)


> само по себе без привязки к какому-либу действию

В том смысле пока прога висит ProgressBar меняется? Тогда создай маленькое окно на котором  только ProgressBar+Timer. Окно должно запускаться в отдельном потоке и быть поверх твого окна которое висит!

---

Daedr   (2007-08-23 15:13:00) [30]

> Ega23

Понятно=)

> iXT

Закрузка ЦП 100%, прога не реагирует пока не заполнится прогрессбар
Цикл:

ProgressBar1.Max:=900000
Repeat
x:=x+1;
ProgressBar1.Position:=x;
Until x=ProgressBar1.Max

---

iXT   (2007-08-23 15:09:00) [31]

MaxValue - просто Max

---

iXT   (2007-08-23 15:07:00) [32]

Сначало задай вопрос по-русски. :) что значит виснит, что значит реализовать по другому???
TProgressBar(AnyPointer).Position:=TProgressBar(AnyPointer).MaxValue; и он заполнен :)

---

Ega23   (2007-08-23 15:06:00) [33]

> я использую цикл, но прога виснит, можно ли реализовать
> цикл подругому?


Можно.


> Только по-русски если можно=)


можно и по-русски:


фор и:=1 ту 10000 ду
бегин
 ДуСамфинг(и);
 Аппликейшн.ПроцессМесаджесс;
энд;


---

Страницы:   < 1 2 >

Наверх