Показать сообщение отдельно
  #6  
Старый 20.03.2010, 02:09
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,034
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Да, собственно, все и расказанно. Чего еще добавить? Или тебе до нажатия кнопок и названий пунктов меню надо?

Файл проекта будет примерно такой:
Код:
program Program1;

uses
  ....
  MainFrm, // Главная форма - не помню точно синтаксис
  SplashForm; // Сплэш

begin
  SplashForm := TSplashForm.Create(Nil);
  SplashForm.Show;

  Application.Initialize;
  Application.CreateForm(MainForm, TMainForm);
  ...

   For I := 1 To 10 Do 
     Begin
        SplashForm.ProgressBar1.Position :=  SplashForm.ProgressBar1.Position + 1;
        SplashForm.Update;
        Sleep(200)
     End;

   SplashForm.close;
   SplashForm.Free;

    Application.Run;
end.
Ответить с цитированием