Цикл

← →
Daedr (2007-08-23 15:03) [0]

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

← →
Ega23 © (2007-08-23 15:06) [1]

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

Можно.

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

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

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

← →
iXT © (2007-08-23 15:07) [2]

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

← →
iXT © (2007-08-23 15:09) [3]

MaxValue - просто Max

← →
Daedr (2007-08-23 15:13) [4]

> Ega23

Понятно=)

> iXT

Закрузка ЦП 100%, прога не реагирует пока не заполнится прогрессбар
Цикл:
ProgressBar1.Max:=900000 Repeat x:=x+1; ProgressBar1.Position:=x; Until x=ProgressBar1.Max

← →
-=Le][=- © (2007-08-23 15:13) [5]

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

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

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

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

← →
Германн © (2007-08-23 15:14) [6]

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

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

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

← →
-=Le][=- © (2007-08-23 15:14) [7]

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

← →
Германн © (2007-08-23 15:15) [8]

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

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

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

← →
Сергей М. © (2007-08-23 15:15) [9]

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

По-русски ?

Да изволь)

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

← →
-=Le][=- © (2007-08-23 15:16) [10]

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

← →
Германн © (2007-08-23 15:16) [11]

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

Ещё хлеще :)

← →
Daedr (2007-08-23 15:16) [12]

> Сергей М.

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

← →
-=Le][=- © (2007-08-23 15:17) [13]

Германн ©

Об TThead слишал?

← →
Германн © (2007-08-23 15:18) [14]

> -=Le][=- © (23.08.07 15:17) [13]
>
> Германн ©
>
> Об TThead слишал?
>

Слышал. Дальше что?

← →
iXT © (2007-08-23 15:19) [15]

> [4] Daedr (23.08.07 15:13)

1. чему равен x до
2. использую возможности IDE и удивишся (F5, F7, F8)

← →
-=Le][=- © (2007-08-23 15:19) [16]

В методе Execute создай окно

← →
iXT © (2007-08-23 15:22) [17]

> [16] -=Le][=- © (23.08.07 15:19)

"Иногда лучше жевать"

← →
Daedr (2007-08-23 15:23) [18]

> 1. чему равен x до

x=0

> 2. использую возможности IDE и удивишся (F5, F7, F8)

Можно суть IDE и моего удевления=)?

> Сергей М.

Кстати, я прогу доделал, работает впринципе как надо(самокомируется пишется в реестр), только вот эта маленька проблема с зависанием, хотя это и не отржается на её работе, но всё же это минус.

← →
-=Le][=- © (2007-08-23 15:24) [19]

[17] iXT ©
Я тебе мешаю жевать?

← →
Германн © (2007-08-23 15:25) [20]

> -=Le][=- © (23.08.07 15:19) [16]
>
> В методе Execute создай окно
>

1. Какое окно?
2. Зачем?

← →
iXT © (2007-08-23 15:29) [21]

> [18] Daedr (23.08.07 15:23)
> x=0
В коде этого не видно
> Можно суть IDE и моего удевления
А ты попробывал?

> [19] -=Le][=- © (23.08.07 15:24)

Ты хотел блеснуть своими познаниями - ты это сделал. :)

← →
Daedr (2007-08-23 15:36) [22]

> В коде этого не видно

Но присутствует),разве есть разница, чему равен х?

> А ты попробывал?

Попробывать я смогу только поздно вечером, так как на этом компе встаёт делема или Windows или Delphi=),

> If объяснение<>сложно then объясни вкратце else буду сам
> гемороется вечером;

← →
-=Le][=- © (2007-08-23 15:40) [23]

> Германн © [20]

1) если в проекте в разных местах прога чтото думает очень (или не очень) долго то для простого пользователя приятнее видеть что прога чтото делает, а не висит. А в каждом месте писать один и тот же код нехорошо! А если для каждого свой ProgressBar ставить на форму то воще ничего не найдешь!
2) один рас сделал и линкуеш унит скока хочеш!

Согласен что много писать но универсальность требует жертв!

> Daedr (23.08.07 15:16) [12]
> От тебя другого и не ожидал

А что Я ?

Я - ничто.

ЧТО - это встроенный отладчик.

Ему и молись, "не ожидающий" ты наш)

> [22] Daedr (23.08.07 15:36)

> разве есть разница, чему равен х?

Ни фига се! Пусть x=900001 и чего будет?

> > If объяснение<>сложно then объясни вкратце else буду сам
>
> > гемороется вечером;

Вот и пройдись отладчиком пошагово, и посмотришь чему равен X.

ЗЫ Рекомендую вместо категоричного "=" юзать "<=" или ">="

> работает впринципе как надо(самокомируется пишется в реестр),
> только вот эта маленька проблема с зависанием, хотя это
> и не отржается на её работе,

АброкадабРИЩА

Идиоту - идиотово.

О большем он и не мечтал.

← →
Daedr (2007-08-23 15:56) [30]

> АброкадабРИЩА

Объясню ещё раз, прога запускается и сразу идёт заполнения ПрогрессБар,
и на форме нечего не отброжается, кроме его заполнения, но это я решил поставив таймер на запуск ПрогрессБара. Но с окном нельзя работать, хотя это в данной проге не столь важно, но на будущие с этим надо разобратся.

> [30] Daedr (23.08.07 15:56)

Вот только не обижайся, но напоминает "тупой еще тупее"! Ты с какой целью туда поставил БАР? Так, круто чтобы было?

← →
Daedr (2007-08-23 16:05) [32]

> Ты с какой целью туда поставил БАР? Так, круто чтобы было?

http://www.slil.ru/24761957 - .gif(5,006 байт)- легче показать, чем объяснить

есть предложение к автору выяснять подробности написания подобных программ на других сайтах.

Цикл Найти похожие ветки