![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
окно приветствия [D7, WinXP]
Новый © (2005-09-15 10:34:00)Очень долго искал что-нибудь с этим названием, не нашёл!
Вообщем суть...
Вы когда нибудь видели как 1С или Photoshop запускаются?
Висит картинка, а ниже появляются написи, говорящие нам что сейчас делается! Тоесть мы видим окно приветствия+статус загрузки.
Долго мучался, но сам сделать так и не смог!
Думал так:
procedure mainform.??????();
begin
//чтобы модальное окно не активировало главную форму:
сделать основной формой - рабочий стол;
спрятать главную форму;
создать модальное окно;
вывести его;
end;
потом в модальном окне
procedure Modalform.??????();
begin
edit1.text:='Инициализация';
sleep(100);
edit1.text:='Проверка ключа';
sleep(100);
edit1.text:='Проверка файлов';
sleep(100);
edit1.text:='Загрузка программы...';
sleep(100);
MainForm.Visible:=true;
ModalForm.Free;
end;
но вот ни чего так и не получилось!
Может знает кто как всё правильно сделать?
Германн (2005-09-15 15:00:00) [1]
> Очень хотелось бы малюсинький примерчик!
Тебе же сказали в [1], где смотреть пример.
Тот самый Splash и есть то, что тебе доктор прописал. :)
ANB (2005-09-15 14:24:00) [2]
> получается форма не модальная? это плоховато!
- чем ?
Application.ProcessMessages - заставит твое приложение нарисовать все, что ты наменял в визуальных компонентах и обработать системные сообщения (клава, мышь).
Примерчик писать лениво, и так все понятно.
Новый (2005-09-15 13:57:00) [3]
> В ней показываешь еще одно окно/форму (Show)
получается форма не модальная? это плоховато!
Application.ProcessMessages - с этим то чё делать?
Очень хотелось бы малюсинький примерчик!
ANB (2005-09-15 12:14:00) [4]OnShow в главной форме. В ней показываешь еще одно окно/форму (Show) и дальше делай с ней, что хочешь. Чтобы было видно - не забывай Application.ProcessMessages.
Имхо - к WinAPI никакого отношения не имеет.
WondeRu (2005-09-15 10:40:00) [5]Delphi7\Demos\Db\MastApp тут пример.