3.6. Лабораторная работа №6. Компоненты MainMenu, tToolBar, tControlBar, набор закладок (tTabControl), набор страниц (tPageControl ), ползунки (tTrackBar).
Описание и основные свойства компонентов рассмотрены в разделе 2 «Среда программирования Delphi» в подпункте 2.4. «Компонентный подход. Палитра компонентов.»
Задание 1.
Создайте приложение, которое позволяло бы выполнять операции над числами, записанными в компонентах Edit. Рекомендуемый вид формы приведён на рисунке 3.54.
Рис. 3.54. Рекомендуемый вид формы
В меню «Операции» входят три подменю (рис. 3.55):
Рис. 3.55. Меню «Операции»
В подменю «Аддитивные» входят две операции (рис. 3.56):
Рис. 3.56. Подменю «Аддитивные»
В подменю «Мультипликативные» тоже входят две операции (рис. 3.57):
Рис. 3.57. Подменю «Мультипликативные»
Выполнение операций осуществляется описанием события OnClick для определённого пункта меню.
3.7. Лабораторная работа №7. Компонент времени Timer.
Описание и основные свойства компонента рассмотрены в разделе 2 «Среда программирования Delphi» в подпункте 2.4. «Компонентный подход. Палитра компонентов.»
Задание 1.
Напишите программу «Электронные часы», в окне которой отображается текущее время и дата. Рекомендуемый вид формы приведён на рисунке 3.71.
Рис. 3.71. Рекомендуемый вид формы
Разместим на форме компонент Timer и компонент Label для отображения времени. Подробно опишем программный код.
Для начала нам необходимо добавить одну процедуру для доступа к компонентам формы:
.
Теперь опишем данную процедуру:
Здесь компоненту Label присваивается значение функции RormatDateTime, которая отображает время.
Теперь описывает событие Paint для формы, которое позволит отобразить асы на форме:
.
Теперь опишем событие OnTimer для обработки сигнала таймера:
.
Осталось описать событие загрузки формы:
.
При запуске форма будет выглядеть следующим образом (рис. 3.72):
Рис. 3.72. Тестирование программы
Задание 2.
Напишите программу «Таймер», в которой пуск таймера осуществляется после установки интервала времени. Рекомендуемый вид формы приведён на рисунке 3.74.
Рис. 3.74. Рекомендуемый вид формы
В данной программе сначала необходимо объявить глобальные переменные и свойству Enabled компонента Timer присвоить значение false:
Описываем процедуру ShowTime:
Теперь описываем событие OnClick для компонента Timer:
Осталось описать событие щелчка по кнопке «Пуск»
При запуске на экране появится следующая форма (рис. 3.75):
Рис. 3.75. Тестирование программы
По нажатию на кнопку «Пуск» включится таймер (рис. 3.76):
Рис. 3.76. Тестирование программы
