Алгоритмические языки и программирование Лабораторная работа №5. Вариант 04

ЛАБОРАТОРНАЯ РАБОТА 5
Тема: Создание заставки текстового редактора. Создание таймера.
Цель работы: Научиться использовать различные виды форм.
Порядок выполнения работы:
Создание заставки
Откройте ранее созданный текстовый редактор. Создайте с помощью команды меню File → New → Form новую форму Form2. Эта форма будет использоваться в качестве заставки перед запуском главного окна приложения. Для новой формы удалите значение свойства Caption. Свойству BorderStyle присвойте значение bsNone (результат увидите только при запуске программы). Для удаления кнопок минимизации, максимизации формы и системного меню установите у свойства BorderIcons значения подсвойств biMinimize, biMaximize, biSystemMenu равными False (результат увидите только при запуске программы).
Также для новой формы свойство Enabled установите равным False для того, чтобы заблокировать обработку событий и лишить возможности пользователя управлять окном с помощью клавиатуры или мыши.
Сохраните проект, определив имя второго программного модуля проекта.
Выполните команду Project → Options. В предложенном окне выберите закладку страницы Forms. Переместите Form2 из списка AutoCreate в список Available для рационального использования памяти и ресурсов.
Преобразуйте исходный файл проекта. Для этого чтобы открыть файл проекта выполните команду Project → View Sourсe и измените операторы между begin и end следующим образом:
Form2:= TForm2.Create(Application);
{ Этот оператор создает объект формы заставки и присваивает его адрес переменной Form2, которая определена в программном модуле заставки }
Form2.Show;
Form2.Update;
{ Отображение объекта из памяти на экране и обновление его содержимого }
Application.CreateForm(TForm1,Form1);
Form2.Hide;
Form2.Free;
{ Скрытие формы заставки и освобождение занимаемой ею памяти }
Application.Run;
Для того, чтобы заставка оставалась на экране несколько секунд, для обработчика события OnCreate главной формы Form1 добавьте следующие операторы:
CurrentTime:= GetTickCount div 1000;
{ Процедура CurrentTime возвращает время работы Windows в миллисекундах}
while((GetTickCount div 1000) < (CurrentTime + 4)) do;
{ Организация паузы в 4 секунды}
Объявите переменную CurrentTime типа longint в разделе var текущего модуля.
Поместите на форму заставки компонент Image из закладки Additional палитры компонентов. Вызовите встроенный редактор свойства Picture. Щелкнув по кнопке Load, выберите файл с картинкой для загрузки картинки в окно Picture Editor. (Можно загрузить стандартные картинки C:\Program Files\Common Files\Borland Shared\Images\...). Для того, чтобы растровое изображение внутри объекта Image1 занимало всю клиентную область, требуется изменить значение свойства Strech образа на True.
Поместите на форму заставки справа и снизу от рисунка два компонента Label из закладки Standard палитры компонентов. Отобразите на них информацию об авторе приложения и название приложения, используя различный размер, цвет и начертание шрифта.
Запустите приложение и проверьте его работу.
Создание таймера
Добавьте к проекту новую форму Form3. Переместите Form3 из списка AutoCreate в список Available для рационального использования памяти и ресурсов.
Измените границы окна у Form3, сделайте их невидимыми, уберите значки максимизации, минимизации, системного меню.
Поместите на форму Form3 компонент Label, свойству Caption этого компонента присвойте значение 00:00:00. Выберите для своих часов шрифт, размер и стиль.
Преобразуйте исходный файл проекта. Для этого выполните команду Project → View Sourсe и добавьте перед строкой Application.Run операторы
Form3:=TForm3.Create(Application);
Form3.Show;
Form3.Update;
Поместите на форму Form3 компонент Timer из закладки System. В обработчик события OnTimer объекта Тimer1 добавьте следующую строку:
Label1.Caption:=TimeToStr(Time);
{ TimeToStr преобразует текущее время в строку }
Для события OnCreate формы Form3 выберите обработчик Timer1Timer, который был создан для компонента Timer1. Тогда текущее время будет записано в метку до появления окна.
Для формы Form3 установите свойство FormStyle равным fsStayOnTop для того, чтобы часы были расположены всё время поверх других окон. Кроме того, установите свойство Visible в True.
Запустите приложение и проверьте его работу.

В файле находятся отчет в ворде и отдельно сам исполняющий файл Делфи. Внимание - после скачивания следует изменить мою фамилию на Вашу фамилию. Операция эта занимает не более минуты.
Работа выполнена качественно и сдана с первого раза!