Заставка остается даже после открытия основной формы

@Laertik · Регистрация: 19.05.2013

Author24 — интернет-сервис помощи студентам

Добрый день!
Делаю заставку для программы,и в событие Create моей основной формы Form1 вписал

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Application->Initialize();
  Form2 = new TForm2(Application);
  Form2->Show();
  Form2->Update();
  while (Form2->Timer1->Enabled)
    Application->ProcessMessages();
  Form2->Hide();
  delete Form2;
 
}

При запуске появляется заставка Form2,через 3 секунды таймер выключается.Появляется основная форма Form1.Суть в том,что заставка остается даже после открытия основной формы.То есть две формы остаются,заставка поверх основной формы. Как исправить?
Пробовал и удалять форму Form2,и выделять в фокус форму Form1... Ничего не выходит

Добавлено через 27 секунд

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Application->Initialize();
  Form2 = new TForm2(Application);
  Form2->Show();
  Form2->Update(); 
  while (Form2->Timer1->Enabled)
    Application->ProcessMessages();
 
  Form2->Hide();
  delete Form2;
  
}

Добавлено через 55 минут
ап!

Добавлено через 1 час 11 минут
ап!

	11.11.2013, 20:29

Опции темы