На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Создание заставки при старте программы
      Перед появлением главного окна во всех серьёзных приложениях сначала появляется заставка. Теперь и у Вас есть возможность повыёживаться! Для создания заставки выполняем следующую последовательность действий:

      Начинаем создание нового приложение командой "New Application" ("Новое приложение") из меню "File" ("Файл")

      Добавьте ещё одну форму: "New Form"("Новая форма") из меню "File" ("Файл"). Это окно и будет заставкой. У него нужно убрать рамку с полосой заголовка, установив свойство "BorderStyle" в "bsNone". Теперь можно смело разработать дизайн окна заставки.

      Из меню "Project" ("Проект") выбрать команду "Options"("Опции"). Зайти на закладку "Forms"("Формы") и Form2 из списка автоматически создаваемых форм (Auto-Create forms) перенести в список доступных форм (Available forms)

      На форму-заставку с закладки System вынести компонент Timer. В его свойстве Interval установить значение 5000, а в событии OnTimer написать:

      ExpandedWrap disabled
        Timer1.Enabled := false;


      Это сделано для того, чтобы заставка была видна в период указанного времени – 5000 миллисекунд, т.е. 5 секунд.

      Перейти в файл проекта, нажав Ctrl+F12 и выбрав Project1. Исходный код должен выглядеть так:

      ExpandedWrap disabled
        program Project1;
         
        uses
          Forms,
          Unit1 in 'Unit1.pas' {Form1},
          Unit2 in 'Unit2.pas' {Form2};
         
        {$R *.RES}
         
        begin
          Application.Initialize;
          Application.CreateForm(TForm1, Form1);
          Application.Run;
        end.


      Теперь мы внесём сюда немного изменений и код должен стать таким:

      ExpandedWrap disabled
        program Project1;
         
        uses
          Forms,
          Unit1 in 'Unit1.pas' {Form1},
          Unit2 in 'Unit2.pas' {Form2};
         
        {$R *.RES}
         
        begin
          Application.Initialize;
          Form2 := TForm2.Create(Application);
          Form2.Show;
          Form2.Update;
          while Form2.Timer1.Enabled do
            Application.ProcessMessages;
          Application.CreateForm(TForm1, Form1);
          Form2.Hide;
          Form2.Free;
          Application.Run;
        end.



      Взято с www.delphiworld.narod.ru
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0251 ]   [ 17 queries used ]   [ Generated: 28.03.24, 17:51 GMT ]