Приветственное окно в программе

[Elegance3]

Нужно реализовать приветственное окно перед началом работы программы.
Пробую реализовать по такой схеме: приветственная форма с картинкой и таймером, при запуске форма показывается, таймер отсчитывает к примеру 5-10 секунд, приветственная форма закрывается, и появляется главная форма, с которой будет происходить работа в программе.

Для приветственной формы использую обработчик события таймера вот так:

procedure TForm6.Timer1Timer(Sender: TObject);
begin
Form6.Close;
Form1.Show;
end;

При этом главная форма у меня установлена Form6 (приветственная), таймер уже установлен на 10000, и включен изначально.

В результате: при запуске программы происходит очень быстрое мелькание чего-то (наверное приветственной формы) и все завершается.
Посоветуйте, пожалуйста, как решить данную проблему или же как можно иначе реализовать такие вот приветственные окна. Заранее спасибо

[Neobrat]

на проекте View source

и там что то в роде

var
  xFRM : TForm6;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  xFRM := TForm6.Create(nil);
  xFRM.ShowModal;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Elegance3]

Свойство MainFormOnTaskBar у меня не определилось(( может надо подключить что-то в uses?
С помощью вашего кода приветственное окно держится бесконечно долго)
И при его закрытии вылетает ошибка.

Вот что у меня в Source:

var
xFRM : TForm6;
begin
Application.Initialize;
Application.MainFormOnTaskBar:=True ;
xFRM := TForm6.Create(nil);
xFRM.ShowModal;
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm4, Form4);
Application.Run;
end.

Form6 это приветственная, Form1 - форма с которой осуществляется переход на другие формы.

[Hacker19_90]

С помощью вашего кода приветственное окно держится бесконечно долго)

Ясен пень что бесконечно создали показали а закрывать-то кто будет??

[Elegance3]

ну так в обработчике таймера - прописано закрытие формы) или её отсуда же надо закрыть?

[Hacker19_90]

так а теперь где логика?
форма показана как модальная соответственно пока её не закроешь программа не передаст управления другой форме!

[Elegance3]

прошу прощения, впервые сталкиваюсь с понятием модальности


Пробовала в Source прописать закрытие формы 6 - не помогло - держится)

[Человек_Борща]

Вытащил из рабочего проекта.
Зачем супермегаграбли с использованием таймеров? for to do и application.processmessages уже не те?

  if not RunParams('nss') then //не обращаем внимания
  begin
    Application.Title := 'Loading...';
    try
      SF := TSplashForm.Create(Application);
      SF.Show;
      SF.Update;
      for i := SF.ProgressLoad.MinValue to SF.ProgressLoad.MaxValue do //Держим заставку 2 секунды
      begin
        Application.ProcessMessages;
        SF.ProgressLoad.Progress := i + 1;
        Delay(20);
      end;
      SF.Hide;
    finally
      FreeAndNil(SF);
    end;
  end;

без всяких таймеров и чего-либо. А вместо прогрессара можно воткнуть цикл от 0 до 100.
TSplashForm - находится в доступных формах(сама она не создаётся).

З.Ы. заставка с долгим ожиданием, через 3-5 секунд заставляет юзеров нервно жать ctrl+alt+del и гонять мышь по рабочему столу. А затем вырубить программу, и запустить ещё ещё раз. Потом юзеры звереют...

[Elegance3]

Среди компонентов New - Splash Form не нашла((

[IliaIT]

судя по коду должно каждые 10 секунд отображать форму 1. и закрывать форму 6. попробуй отладку запустить.

в первую очередь исправь абсурдный код с точки зрения дельфи на следующий

  Form6.Hide;
  Form1.Show;
  Form6.Timer1.Enabled:=false;

только при закрытии программы не забудь закрыть форму 6, то есть

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form6.close;
end;

1. если запустить прогу с отключённым таймером что происходит? (если всё верно то отобразиться только форма 6)
2. на начальной форме6 создай кнопку где написан твой код из события по таймеру (если всё верно то переходит на форму 1 и закрывает форму 6)



если выдало ошибку где то то надо глядеть что за ошибка. и что её генерирует. чаще всего чего то не то запускается в других формах.