Помогите разобраться с процедурой OnKeyDown!!!

[frai]

Скажите пожалуйста, можно ли в процедуре OnKeyDown описать символьные клавишы, к примеру A,D. И вообще где можно найти коды к символьным клавишам?

[RSLoader]

Если тебя интересуют виртуальные коды, то найти их описание можно в модуле Windows. Но там придётся поморочиться с регистром и раскладкой, поэтому лучше воспользуйся этой функцией из проги (по-моему, zetrix-a) KeyHook:

function GetCharFromVKey(VKey:Word):String;
var
  KeyState:TKeyboardState;
  RetCode:Integer;
begin
  Win32Check(GetKeyboardState(KeyState));
  SetLength(Result,2);
  RetCode:=ToAscii(VKey,MapVirtualKey(VKey,0),KeyState,@Result[1],0);
  case retcode of
       1:SetLength(Result,1);
       2:
       else Result:='';
  end;
end;

[frai]

Прости, я пока что не очень еще силен в Delphi. Поясни пожалуйста как мне использоваться данную ф-цию в моем случае. В общем мне надо следущее:

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_left then showmessage('работает1');
if key = VK_right then showmessage('работает2');
end;

Я хочу что бы вместо клавишь влево и вправо(стрелок) у меня были задействованы символьные клавишы.

[RSLoader]

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ch:String;
begin
  ch:=GetCharFromVKey(Key);
  if ch = 'r' then showmessage('работает1');
  if ch = 's' then showmessage('работает2');
end;

[Voland]

А так не проще?

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if key = Ord('A') then showmessage('работает1');
  if key = Ord('D') then showmessage('работает2');
end;

[Virtson]

хронология постов тут - от сложного к простому

[frai]

СПАСИБО ВСЕМ ОГРОМНОЕ!!!)))

[zetrix]

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = Ord('A') then showmessage('работает1');
if key = Ord('D') then showmessage('работает2');
end;

нет, не проще, т.к. обратите внимание, что key у нас типа WORD, т.е. Unicode, а не ASCII. И наше счастье, что ASCII и Unicode совпадает для английских букв!

(ORD возвращает ASCII код символа, а у нас Юникод)

[Voland]

Параметр Key в обработчике OnKeyDown - это не ASCII или Unicode символ, а Virtual-Key code. Он НЕ ЗАВИСИТ ни от раскладки клавиатуры, ни от состояния клавиши Shift.
А Ord('<заглавная английская буква>') - это просто метод получения Virtual-Key code для определённой символьной клавиши. Компилятор просто поставит вместо Ord('A') константу. Почитай справку Дельфи по теме "Virtual Key Codes".

[zetrix]

Что-то я с чем-то перепутал... Спасибо