Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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



Страницы: 1 вся ветка

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

Наверх















Память: 0.83 MB
Время: 0.026 c
1-85
vladimir_12
2002-03-19 09:11
2002.04.01
Печать в текстовом режиме


1-131
vampire
2002-03-20 21:33
2002.04.01
~CGI~


1-171
Beginer
2002-03-19 11:28
2002.04.01
Новое свойство формы


1-168
Solod
2002-03-14 03:58
2002.04.01
Не могу разобраться ...


1-108
совсем Новенький
2002-03-21 13:25
2002.04.01
Как узнать Ip в формате LongInt





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский