картинка при запуске
На старых компах прога довольно долго загружается. Подскажите как сделать, чтобы при запуске проги сначала появлялась картинка(например "ЗАГРУЗКА")
Создавай окно например диалог размером с картинку и рисуй на него картинку. Остальные окна скрывай. Как загрузиться - убирай это окно с картинкой и делай все остальное видимым.
Заглянуть в $(BCB)\Examples\DB\MastApp и сделать как там.
из примера совсем не понятно как SplashForm становится видимой
2 aks
как создать окно?
Если в design, то сначала грузит, создает form1, затем это окно
Если динамически(в конструкторе form1), то создается непосредственно перед созданием form1
Код:
Application->Initialize();
2 aks
как создать окно?
Если в design, то сначала грузит, создает form1, затем это окно
Если динамически(в конструкторе form1), то создается непосредственно перед созданием form1[/QUOTE]
Да вручную хоть. CreateWindow(), ShowWindow(...,SW_SHOW) для окна загрузки. ShowWindow(...,SW_HIDE) для главноего окна, или вобще его не создовать пока загрузкеа окончательно не пройдет.
из примера совсем не понятно как SplashForm становится видимой
[/QUOTE]
Ну если так дело плохо, то давай применим более радикальный метод - WinMain скопируй из примера и вставь вместо своей.
#pragma startup имя_функции приоритет
пример:
void f1(void);
#pragma startup f1
//----------------
void f1(void)
{
ShowMessage("WinMain еще не запущен :)");
}
//----------------
Код:
Application->Initialize();
необязательно
копировать не надо :)
достаточно добавить в WinMain (Form2 - это и есть то что нам надо)
Код:
...
#include "Unit2.h" // ОБЯЗАТЕЛЬНО
USEFORM("Unit2.cpp", Form2);
...
try
{
Form2 = new TForm2(Application);
Form2->Show();
Form2->Update();
Application->Initialize();
...
#include "Unit2.h" // ОБЯЗАТЕЛЬНО
USEFORM("Unit2.cpp", Form2);
...
try
{
Form2 = new TForm2(Application);
Form2->Show();
Form2->Update();
Application->Initialize();
...
кстати, в этом примере так и сделано - $(BCB)\Examples\DBTasks\MastApp