Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как перехватить нажатие последовательности клавиш?   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1083266065
ANDREY'S
2004-04-29 23:14
2004.05.23
Рабочий сто виндоус


1-1083785480
solo
2004-05-05 23:31
2004.05.23
Злобный RichEdit!!!


7-1081883007
Mozzzila
2004-04-13 23:03
2004.05.23
Слежение за обращением к реестру


1-1083862732
Алексей Петухов
2004-05-06 20:58
2004.05.23
OnClose в объекте TToolBar


14-1083567626
Белый волк
2004-05-03 11:00
2004.05.23
Правильное отображение кирилицы в консольном приложении Delphi