|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.05.2011, 19:42 | #1 |
Регистрация: 08.05.2011
Сообщений: 6
|
Нужна помошь по progressbar в delphi
есть форма1 которая главная.так вот как сделать,чтобы при запуске exe появлялась форма с progressbar которая вызывает загрузку формы1 и datamodule6 на котором идет подключение базы данных????
просто из-за неё загрузка идет около 10 секунд, и без progressbar кажется что прога зависла.....((((( |
09.05.2011, 00:09 | #2 |
Пользователь
Регистрация: 08.05.2011
Сообщений: 42
|
создай поток - и в этом потоке сделай подключение к базе, соотвественно интерфейс проги не будет зависеть от ожидания подключения
и в другом потоке сделай проверку прошло ли подключение например, первый поток запускает подключение connect := false бла бла бла // успешно подключились connect := true второй поток тупо ожидает завершения первого потока либо проверяет N секунд переменную connect на значение true \\процедура таймера\\ здесь развлекаем пользователя показываем движущиеся рогалики if connect = true timer.stop; if time > N and connect = false убиваем первый процесс показываем мессагу что время вышло вот такой принцип))) |
09.05.2011, 14:57 | #3 |
Регистрация: 08.05.2011
Сообщений: 6
|
ни катит!!!
мне нужно именно форма с progressbar которая запускает первую форму datamodule1 ,потом какой нидь цикл проверяющий загрузилась ли форма,если да,то statusbar = 100% и форма со statusbar закрывается....вот типо такого .... |
09.05.2011, 17:10 | #4 | |
Пользователь
Регистрация: 29.03.2011
Сообщений: 28
|
Цитата:
Если правильно понял,то: На форме-заставке ставим таймер и с небольшим интервалом проверяем доступность БД.Если недоступна - увеличиваем занчение прогрессбара,если доступна - устанавливаем максимальное значение,закрываем форму-заставку,открываем форму с БД |
|
11.05.2011, 12:52 | #5 | |
Пользователь
Регистрация: 08.05.2011
Сообщений: 42
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна помошь | vaauuty | Свободное общение | 13 | 08.02.2011 19:02 |
Нужна помошь | sincemix | Общие вопросы Delphi | 1 | 02.08.2010 22:04 |