Получить скан код после WM_KEYEVENT - Общие вопросы Delphi

TwiX · 16.04.2010, 16:59

В справке написано, что 16-23 биты lParam отвечают за скан код. Написал это, но не работает:

Код:

procedure TForm1.KeyEvent(var msg: TMessage);
begin
  form1.Caption:='';
  Form1.Caption:=Form1.Caption+IntToStr((msg.LParam shr 16) and (1 shl 9 - 1));
            
  Form1.Caption:=form1.Caption+' '+Chr(StrToInt(Form1.Caption));
end;

TwiX · 21.04.2010, 23:09

Апппппппппппп

16.04.2010, 16:59	#1
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	Получить скан код после WM_KEYEVENT В справке написано, что 16-23 биты lParam отвечают за скан код. Написал это, но не работает: Код: `procedure TForm1.KeyEvent(var msg: TMessage); begin form1.Caption:=''; Form1.Caption:=Form1.Caption+IntToStr((msg.LParam shr 16) and (1 shl 9 - 1)); Form1.Caption:=form1.Caption+' '+Chr(StrToInt(Form1.Caption)); end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
написать ASSEMBLER программу отображаущую скан-код нажатия и отпускания клавиш	NAC35	Помощь студентам	2	16.06.2009 00:24
написать ассемблер-программу,выводящую на экран скан-код	sashok2009	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	9	08.06.2009 22:11
Чем отличается скан-код от виртуального кода клавиши?	The_Darkness	Помощь студентам	2	18.07.2008 17:01
Помогите оптимизировать HTML код после Publisher	Гербера	HTML и CSS	16	03.12.2007 11:46

21.04.2010, 23:09	#2
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	Апппппппппппп