VPF::Окно при запуске программы - Форум программистов

kwotz

Дата 29.4.2007, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 25
Регистрация: 6.1.2007
Где: Майкоп

Репутация: нет
Всего: нет

Имеется программа, которая находится в системном трее. Запускается сразу в него. Хочу, чтобы при старте программы на экране появлялась форма с заставкой. Если я вставляю Form.show при создании главной формы – вылетает ошибка. Если при активации формы, то окно появляется только тогда, когда я щелкаю на иконку в трее, причем каждый раз (т.е. сто раз нажал на иконку в трее, сто раз появилось окно).
(Иконка в трее создавалась с помощью статьи Создание иконки

MaXL

Дата 29.4.2007, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

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

Код


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.

--------------------

MaXL

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »