VPF::Заставка - Форум программистов

CHERRY

Дата 18.7.2007, 13:31 (ссылка)

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

Загрузка ...

Прохожий

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

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

Код


  Application.Initialize;
  StartForm:= TStartForm.Create(Application);
  StartForm.Show;
  StartForm.Update;

  Application.HelpFile := 'E:\DELPHI\DELPHI_10\$Projects\ChEdit\ChHelp.chm';
  Application.Title := 'Cherry Edit';
  Application.CreateForm(TChEditForm, ChEditForm);
  Application.CreateForm(TOptionsForm, OptionsForm);
  Application.CreateForm(TRForm, RForm);
  Application.CreateForm(TMakForm, MakForm);
  Application.CreateForm(TREditForm, REditForm);
  Application.CreateForm(TKeyWordForm, KeyWordForm);
  Application.CreateForm(TGramForm, GramForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(THelpForm, HelpForm);
  Application.CreateForm(TGKeyHelpForm, GKeyHelpForm);
  Application.CreateForm(TDivFileForm, DivFileForm);
  Application.CreateForm(TFoundFileForm, FoundFileForm);
  Application.CreateForm(TFoundForm, FoundForm);
  Application.CreateForm(TLicensForm, LicensForm);
  Application.CreateForm(TCorrektForm, CorrektForm);
  Application.CreateForm(TPlCorForm, PlCorForm);
  Application.CreateForm(TABCForm, ABCForm);
  Application.CreateForm(TUpDateForm, UpDateForm);
  Application.CreateForm(TStreetForm, StreetForm);
  Application.CreateForm(TStatWorkForm, StatWorkForm);
  Application.CreateForm(TUnknownForm, UnknownForm);
  Application.CreateForm(TPacetCorrectForm, PacetCorrectForm);
  Application.CreateForm(TStartForm, StartForm);
  Application.CreateForm(TPacetReportForm, PacetReportForm);
  Application.CreateForm(TZapretTelForm, ZapretTelForm);

  StartForm.Hide;
  StartForm.Destroy;

  Application.Run;

Если приложение после запуска свернуть/развернуть, то видна неуничтоженная форма заставки.
На медленных компах заставка прорисовывается и в других случаях.
Как избавится от ненужной формы?
Ее задача просигнализировать о том, что приложение стартануло и грузит БД и т.д.

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

Трясу надежды ветвь, но где желанный плод?

Telepyz

Дата 18.7.2007, 13:50 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

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

Это очень просто.
Создай форму и поместите на нее логотип, используя компонент Timage. В моем примере я создал форму с логотипом и именем "logoform". Зайди в настройки проекта и исключ форму их списка "автосоздаваемых" форм.
Затем в твоем файле PROJECT.DPR где-то сразу после ключевого слова begin напиши примерно следующее:

Код


logoform := TLogoform.Create(nil);
logoform.Show;            { ВНИМАНИЕ! show!   НЕ showmodal }


.
. { Здесь может размещаться код инициализации приложения, открытие базы данных... }
.


.  { После блока кода, создающего все ваши формы и перед
строчкой Application.Run напишите: }


logoform.Hide;
logoform.Release;

Это будет показывать форму с логотипом до тех пор, пока приложение не выполнит инициализационный код и окончательно не запустится.

вот >v

Код


program Project1;
uses

Forms,
Unit1 in 'Unit1.pas' {Form1};
ULogo in 'ULogo.pas' {LogoForm};

{$R *.RES}

begin Application.Initialize; {до этого момента никаких изменений}

with TLogoForm.Create(Application) do
try
Show;
Update;
Application.CreateForm(TForm1, Form1);
{GProgress.AddProgress(1); - здесь можно двигать прогресс, если TGauge
или TProgressBar лежат на TLogoForm'е}

{если есть еще формы, то Application.CreateForm(TForm2, Form2); и т.д.}
finally
Free;
end;

Application.Run;
end.

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

обновить драйвер

CHERRY

Дата 18.7.2007, 14:21 (ссылка)

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

Загрузка ...

Прохожий

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

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

Спасибо. Работает

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

Трясу надежды ветвь, но где желанный плод?

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