Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=43579&view=findpost&p=285342 Wed, 21 Jan 2004 21:57:13 +0000 Создание заставки при старте программы https://forum.sources.ru/index.php?showtopic=43579&view=findpost&p=285342
Начинаем создание нового приложение командой "New Application" ("Новое приложение") из меню "File" ("Файл")

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

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

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

    Timer1.Enabled := false;


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

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

    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.


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

    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]]> Vit Hello, World!