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

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

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

Автор: Zerony 27.2.2010, 20:34

Здравствуйте! Это опять я)

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

Автор: Frees 27.2.2010, 20:45

Создай форму назови ее fmSplash например
положи на нее Label
и в файле проекта(dpr) пишеш

Код


  fmSplash := TfmSplash.Create(Application);
  fmSplash.Label1.Caption := 'Initialize';
  fmSplash.BorderStyle := bsNone;
  fmSplash.Show;
  fmSplash.Update;
  Sleep(3000);
  Application.Initialize;
  fmSplash.Label1.Caption := 'CreateForm';
  fmSplash.Update;
  Sleep(3000);
  Application.CreateForm(TForm1, Form1);
  fmSplash.Free;

Автор: Zerony 27.2.2010, 20:53

Спасибо