Код клавиш

[MAKEDON]

Я тут завис на такой фигне. Я не знаю коды всех клавиш, только стрелки и все F1-F12. Мне нужно чтобы действие происходило при нажатии клавиши, например Q,W,A,S,D,Del, Enter тп. Какой код у этих клавиш?

[Yurk@]

Держи (надеюсь поможет) :

[mihali4]

Это же очень просто. Вы в любой момент можете узнать код любой клавиши например, так:
1. В свойствах формы ставим KeyPreview=True
2. На событие OnKeyPress формы пишем простенький код:
Label1.Caption:=''''+Key+'''='+IntT oStr(Ord(Key));
Вот и все.

[The_Darkness]

Все то же самое можно сделать при помощи Console Application:

 Var
Ch:Char;
begin
 Repeat
 Readln(ch);
 Writeln(ORD(Ch));
 Until(Ch=#27);
end;

Так получим номер символа
А вот так можно получить символ с заданным номером:

Var
Ch:Byte;
begin
Repeat
 Readln(ch);
 Writeln(Chr(Ch));
Until(Chr(Ch)=#27);

Кто не знает #27 - это Esc В обоих случаях программа будет работать до тех пор пока не нажмется клавиша Esc

[MAKEDON]

Все всем спасибо! Тема закрыта!