Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

Как строковое значение клавиши перегнать в её VirtualKeyCode значение (integer) 


greenrul   (2002-03-19 21:24) [0]

Например "Ctrl"->16 и прочее, CHR и ORD не подходят - длинные строки ("Shift") не проскочат. Надеюсь на вас, мастера!



Song   (2002-03-19 23:11) [1]

http://delphi.mastak.ru/articles/sendkey.html



Anatoly Podgoretsky   (2002-03-19 23:31) [2]

Если я правильно тебя понял, то тебе нужна шутка типа ShortCut Editor, реализация есть в файле dsgnintf.pas
Или уточни вопрос, а то он какой то непонятный.



greenrul   (2002-03-20 08:13) [3]

2Song - хреново..
а по иному никак?



Song   (2002-03-20 08:22) [4]

Если только узнать, то:
сделай для любого элемента процедуру на onKeyPressed и на точку внутри процедуры поставь метку. Когда трассировка сработает посмотри код переменной Key.
Я так простенько делал, когда мне нужно было узнать Ctrl+A
Если не будет получаться сделай OnKeyUp - точно получиться.



McSimm   (2002-03-20 15:23) [5]

Попробуй такую связку:
function TextToShortCut(Text: string): TShortCut;
получить TShortCut из текста;
procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState;)
получить код и Shift из TShortCut




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
3-64              Cyberbob              2002-03-09 20:48  2002.04.01  
Как свою БД сделать-например


3-39              ЛенаК                 2002-03-06 09:36  2002.04.01  
deadlock violation при удалении записей


6-263             Oleg_EM               2002-01-09 09:29  2002.04.01  
AsyncPro 2.58 ApdTAPIDevice как ему сказать шоп пульсом набирал ?


4-339             Ольга                 2002-01-30 14:04  2002.04.01  
Если зависло окно DOS...


1-187             Aleksandr             2002-03-19 18:46  2002.04.01  
Почему не убивается нажатие клавиши?