Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизПриветствую! Необходимо создать небольшой этулятор клавиатуры, нашимаем на кнопку со знаком 5 и в лебел появляется 5, нашимаем на 6 и в лебел 56 Найти похожие ветки
← →
TonnyS (2001-12-04 11:34) [3]или вариант:
тоже, OnClick всех кнопок связываешь с одним обработчиком, Tag каждой кнопки устанавливаеш от 0 до MaxKeys:
const
MaxKeys = 3;
KeysVal : array[0..MaxKeys] of char=("A","B","C","D");
procedure TForm1.Button1Click(Sender : TObject);
begin
label1.caption := label1.caption + KeysVal[(Sender As TButton).tag];
end;
в такой реализации можно на кнопках писать что угодно (например, "Пробел")
и можно реализовать реакцию на клавиши типа BackSpace.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c