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

Тема: Определение нажатой клавиши и нажатого символа.

Цель работы: Ознакомиться с основными клавиатурными событиями визуальных компонентов в среде DELPHI.

Порядок выполнения работы:
1. Разместите на форме 6 объектов типа Label и одну кнопку с растровым изображением (компонент BitBtn на закладке Additional палитры компонентов). Установите у кнопки свойство Kind равным bkClose.
• При создании одинаковых по размеру объектов пользуйтесь буфером обмена или командой Edit® Size. Для выравнивания положения объектов на форме используйте команду Edit® Align
• Для всех объектов типа Label установить свойство AutoSize равным False, свойство Aligment – taCenter. Для меток слева установите нужные свойства Caption, Font. Для меток справа удалите свойство Caption, измените свойство Font по своему усмотрению.
• Для всех объектов типа ТLabel оформите границы, используя такие декоративные элементы, как фаски (компонент ТBevel на закладке палитры компонентов Additional). У объектов типа ТBevel установите значения свойств Shape и Style.
• Обработка клавиатуры осуществляется путем создания обработчиков событий: OnKeyDown, OnKeyPress, OnKeyUp. Для того, чтобы события клавиатуры принимал не компонент формы, обладающий в данный момент фокусом ввода, а сама форма, используйте свойство формы KeyPreview.
• В процедуре обработки события формы OnKeyDown необходимо выполнить следующие действия. Показать значение переменной Key (код виртуальной клавиши) в качестве нажатой клавиши. Для преобразования кода в строковую переменную используйте функцию IntToStr. Проверить были ли нажаты клавиши Shift, Alt, Ctrl (принадлежат ли элементы ssShift, ssAlt, ssCtrl множеству Shift, которое передаётся процедуре в качестве параметра). Создать строку из комбинации нажатых клавиш (например, Shift+Alt+Ctrl, если были нажаты все три клавиши) и поместить её на форму в соответствующее место.
• Например, для проверки нажатия клавиши Alt можно использовать следующий код
if ssAlt in Shift then Label6.Caption:=’Alt’;
• Процедура обработки события OnKeyPress получает значение параметра Key, равное символу ASCII. Для отображения символа в объекте Label2 используйте
Label2.Caption:=Key
• В процедуру обработки события формы OnKeyUp добавьте операторы очистки заголовков объектов типа Label из среднего столбца. Например, Label2.Caption:=’’.

зачет