«Языки программирования высокого уровня в технике связи».«Создание заставки текстового редактора. Создание таймера» Лабораторная работ №5

Лабораторная работа №5
«Создание заставки текстового редактора. Создание таймера»

Цель работы: Научиться использовать различные виды форм.

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

зачет