Заставка программы не перерисовывается, как нужно

← →
TStas © (2009-08-03 23:10) [0]

Есть приложение, оно долго грузится, а пока грузится показывается заставка, на которой показывается, сколько секунд прошло, всё нормально.
begin
LogoForm := TLogoForm.Create(nil);
LogoForm.Show; //Показал заставку
Application.ProcessMessages; //Чтобы отрисовалась

Application.Initialize;
*****Всякие окна создаются (нужные)******
LogoForm.Hide; //Спрятал заставку
LogoForm.Free; //И убил её

Application.Run; //Запуск приложения

Всё работает замечательно, но если перекрыть заставку другим окном, она не получает вовремя сообщение и перерисовывается некрасиво. Это не самое страшное, что может произойти с программой, но можно ли как-то с этим бороться? Понимаю, почему не получает - она создаётся раньше, чем Application.Run и с системе сообщений ещё не подключена. Можно ли как-то изменить это?

← →
тимохов © (2009-08-03 23:12) [1]

> Можно ли как-то изменить это?

У меня есть окно чисто на winapi, у которого очередь обрабатывается в отдельном потоке.

← →
TStas © (2009-08-03 23:18) [2]

А это сложно?

← →
тимохов © (2009-08-03 23:21) [3]

Если честно, то не знаю )) С нуля не писал никогда.

Тут когда-то Димка Логинов выкладывал свой пример. Я ради интереса его взял, изучил, покритиковал автора, но что-то из его примера взял, доработав.

По всей видимости реализовать свое окно на винапи с нуля не должно быть сложно. Полно примеров в МСДН. Да и Юра Зотов несколько раз давал пример такого окна.

В общем, думаю, что сделать свое - подъемно.

← →
brother © (2009-08-04 09:44) [4]

http://www.google.ru/search?hl=ru&client=firefox-a&rls=org.mozilla%3Aru%3Aofficial&hs=YYs&newwindow=1&q=delphi+splash+screen&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=lang_ru&aq=f&oq=
выбирай, что больше понравится...

← →
Юрий Зотов © (2009-08-17 21:33) [5]

Больше всего понравится, конечно же, это:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1411
:o)

> Юрий Зотов © (17.08.09 21:33) [5]
> Больше всего понравится, конечно же, это:

А мне это - http://bitoff.ru/asf-main

:o) гы

http://delphimaster.net/view/15-1250530727/
вот тут есть)

Заставка программы не перерисовывается, как нужно Найти похожие ветки