Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 116

•  TDictionary Custom Sort  6 194

•  Fast Watermark Sources  5 996

•  3D Designer  8 883

•  Sik Screen Capture  6 330

•  Patch Maker  6 747

•  Айболит (remote control)  6 737

•  ListBox Drag & Drop  5 599

•  Доска для игры Реверси  96 068

•  Графические эффекты  6 951

•  Рисование по маске  6 217

•  Перетаскивание изображений  5 121

•  Canvas Drawing  5 491

•  Рисование Луны  5 198

•  Поворот изображения  4 746

•  Рисование стержней  3 357

•  Paint on Shape  2 600

•  Генератор кроссвордов  3 496

•  Головоломка Paletto  2 789

•  Теорема Монжа об окружностях  3 594

•  Пазл Numbrix  2 361

•  Заборы и коммивояжеры  3 038

•  Игра HIP  1 996

•  Игра Go (Го)  1 918

•  Симулятор лифта  2 275

•  Программа укладки плитки  1 979

•  Генератор лабиринта  2 434

•  Проверка числового ввода  2 115

•  HEX View  2 452

•  Физический маятник  2 070

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Создание заставки



Перед появлением главного окна во всех серьёзных приложениях сначала появляется заставка. Теперь и у Вас есть возможность повыёживаться! Для создания заставки выполняем следующую последовательность действий:

Начинаем создание нового приложение командой “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.





Похожие по теме исходники

Создание таблиц в Paradox




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте