![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| andrey_post |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 109 Регистрация: 23.12.2003 Где: Екатеринбург Репутация: нет Всего: нет |
Мне необходимо сделать СплешьСкрин с ProgressBar во время выполения цыкла загрузки данных в ListView или ListBox. Как сие воплотить? а то во время выполнения этого процесса программка как будто "зависает"...
--------------------
И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!! |
|||
|
||||
| bagira |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2858 Регистрация: 25.10.2003 Где: в тайге Уральских гор Репутация: нет Всего: 123 |
В компоненте ProgressBar свойства Min и Max определяют диапазон изменения значений свойства Position. Соответственно надо эти величины связать с параметрами цикла. Простой примерчик.
---------------------- procedure TForm1.Button1Click(Sender: TObject); {На форме - ProgressBar и Кнопка. По нажатию кнопки начнет закрашиваться ProgressBar} var i:integer; begin {Свойства Min, Max - задаются или в тексте программы или в Object Inspector} for i:=ProgressBar1.Min to ProgressBar1.Max do begin ... Sleep(50); {Какие-то действия в твоем цикле} ProgressBar1.Position:=i; end; end; ----------------------- -------------------- Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил... Ф.Х. Дагларджа (Турция) http://zveriolginovour.ru/ https://vmeste.yandex.ru/zveriolginovour |
|||
|
||||
| Pakshin A. S. |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
Есть замечательная штука: Application.ProcessMessages - суй в тело цикла и не будет виснуть!
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |