окно приветствия

← →
Новый (2005-09-15 10:34) [0]

Очень долго искал что-нибудь с этим названием, не нашёл!
Вообщем суть...
Вы когда нибудь видели как 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;

но вот ни чего так и не получилось!

Может знает кто как всё правильно сделать?

← →
WondeRu © (2005-09-15 10:40) [1]

Delphi7\Demos\Db\MastApp тут пример.

← →
ANB © (2005-09-15 12:14) [2]

OnShow в главной форме. В ней показываешь еще одно окно/форму (Show) и дальше делай с ней, что хочешь. Чтобы было видно - не забывай Application.ProcessMessages.
Имхо - к WinAPI никакого отношения не имеет.

← →
Новый (2005-09-15 13:57) [3]

> В ней показываешь еще одно окно/форму (Show)

получается форма не модальная? это плоховато!
Application.ProcessMessages - с этим то чё делать?

Очень хотелось бы малюсинький примерчик!

> получается форма не модальная? это плоховато!
- чем ?
Application.ProcessMessages - заставит твое приложение нарисовать все, что ты наменял в визуальных компонентах и обработать системные сообщения (клава, мышь).
Примерчик писать лениво, и так все понятно.

> Очень хотелось бы малюсинький примерчик!

Тебе же сказали в [1], где смотреть пример.
Тот самый Splash и есть то, что тебе доктор прописал. :)

окно приветствия Найти похожие ветки