Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Окно при запуске программы

Автор: kwotz 29.4.2007, 13:58

Имеется программа, которая находится в системном трее. Запускается сразу в него. Хочу, чтобы при старте программы на экране появлялась форма с заставкой. Если я вставляю Form.show при создании главной формы – вылетает ошибка. Если при активации формы, то окно появляется только тогда, когда я щелкаю на иконку в трее, причем каждый раз (т.е. сто раз нажал на иконку в трее, сто раз появилось окно).
(Иконка в трее создавалась с помощью статьи http://forum.vingrad.ru/topic-55210/unread-1/hl/%25D0%25B8%25D0%25BA%25D0%25BE%25D0%25BD%25D0%25BA%25D0%25B0/index.html

Автор: MaXL 29.4.2007, 14:48

А если в файл с инициализацией проекта добавить, код который проинициализирует первой твою форму с заставкой, покажет её, потом подождёт некоторое время, и продолжает работать дальше?
примерно вот так:

Код


program Project1;

uses
  Forms, Windows,
  MainUnit in 'MainUnit.pas' {MainForm},
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Form1:=TSplashForm.Create(nil);
  Form1.Show;
  Form1.Repaint;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Sleep(1000);
  Form1.Hide;
  Form1.Free;
  Application.Run;
end.