Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
ВнизКак перехватить нажатие последовательности клавиш? Найти похожие ветки
← →
siriusP (2004-05-07 09:14) [0]Известно как перехватить нажатие клавиши в TEdit (на событие OnKeyDown, OnKeyPress).
Подскажите, как перехватить в TEdit нажатие последовательности клавиш, например цифр 1,2,7.. или 3.5, 4.8 :???:
← →
Skyle © (2004-05-07 09:21) [1]А что есть перехват последовательности?
Перехватывай каждую и запоминай последовательность...
Или я не об этом?
← →
[lamer]Barmaglot © (2004-05-07 09:22) [2]А в чем проблема? Насколько я понимаю приблизительно так...
if key = "1" then
if key = "2" then
if key = "7" then processexecute;
← →
siriusP (2004-05-07 09:40) [3]Второй способ не работает. А где вы взяли ProcessExecutе.
← →
ASMiD © (2004-05-07 10:05) [4]Невозможно перехватить последовательность того, чего не существует. Для компьютера каждое нажатие клавиши - это отдельное событие. Поэтому необходимо по OnKeyUp запоминать каждый пришедший символ в массиве или строке и потом производить сравнение.
← →
[lamer]Barmaglot © (2004-05-07 10:25) [5]Какой непонятливый...Держи код.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
code: string[4] = "1276";
index: integer = 1;
begin
If (key = code[index]) then inc(index) else index:=1;
if index=length(code)+1 then messagebox(form1.handle, "lamer", "Работает", mb_ok);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c