Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

greenrul © (2002-03-19 21:24:00)
Например "Ctrl"->16 и прочее, CHR и ORD не подходят - длинные строки ("Shift") не проскочат. Надеюсь на вас, мастера!

McSimm (2002-03-20 15:23:00) [1]
Попробуй такую связку:
function TextToShortCut(Text: string): TShortCut;
получить TShortCut из текста;
procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState;)
получить код и Shift из TShortCut

Song (2002-03-20 08:22:00) [2]
Если только узнать, то:
сделай для любого элемента процедуру на onKeyPressed и на точку внутри процедуры поставь метку. Когда трассировка сработает посмотри код переменной Key.
Я так простенько делал, когда мне нужно было узнать Ctrl+A
Если не будет получаться сделай OnKeyUp - точно получиться.

greenrul (2002-03-20 08:13:00) [3]
2Song- хреново..
а по иному никак?

Anatoly Podgoretsky (2002-03-19 23:31:00) [4]
Если я правильно тебя понял, то тебе нужна шутка типа ShortCut Editor, реализация есть в файле dsgnintf.pas
Или уточни вопрос, а то он какой то непонятный.

Song (2002-03-19 23:11:00) [5]
http://delphi.mastak.ru/articles/sendkey.html

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »