|
Читайте также: |
Постановка задачи. Создайте приложение, выдающее код клавиши. Используйте событие формы OnKeyDown, в обработчике которого выведите десятичный код (переменная key) с помощью Label 1. Caption.
Рис. 23. Код клавиш
Реализация. Положите на форму четыре надписи TLabel. Откройте вкладку «События» формы и дважды кликните напротив событий OnKeyDown и OnKeyPress. Напишите следующий код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
label1.Caption:=Inttostr(key);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
label2.caption:=key;
end;
Задание. Перенесите в тетрадь в виде таблицы коды основных клавиш и символов.
Дата добавления: 2015-08-20; просмотров: 52 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Движение образа по удерживанию левой кнопки мыши | | | По нажатию клавиши со стрелкой |