Коды клавиш

[KAMASUTR]

Подскажите коды всех клавиш клавиатуры!

[still_alive]

Виртуальные что-ли? Тогда ТУТ.

[KAMASUTR]

И еще как зделать так что-бы одновременно управлять насколькими клавишами без запинки можно было?

[still_alive]

Без запинки - это как?

[KAMASUTR]

1-коды не те, в он маус даун не пашат(У мя стрелочки с 37-40) а у вас с(25-28) короче не пашит оно.
2 без запинки это как в кримсонленде , где можно его крутить одновременно двумя клавишами, и он начинает идти в сторону сразу а не с 0.5 секундным запаздыванием, ну какбудто когда пичатаеш, ты ведь нажимаеш клавишу, она пичатаеться раз, а потом .... и череда, так вот надо чтобы без ...

[Alex21]

Сообщение от KAMASUTR

1-коды не те, в он маус даун не пашат

OnKeyDown
VK_UP - прям так и пишите.

[KAMASUTR]

А если надо мне букву Q и S Использовать?

[Alex21]

Это поможет:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Form1.Caption:=inttostr(ord(key));
end;

[Alex21]

Полный код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Form1.Caption:=inttostr(ord(key));
  case Key of
   ord(65): form1.Left:=form1.Left-1;       // A
   ord(68): form1.Left:=form1.Left+1;       // D
   VK_UP:form1.Top:=form1.Top-1;          // <-
   VK_DOWN:form1.Top:=form1.Top+1;     // ->
   Ord(27):close;                                  // by by
  end;
end;

[still_alive]

Сообщение от KAMASUTR

1-коды не те, в он маус даун не пашат(У мя стрелочки с 37-40) а у вас с(25-28) короче не пашит оно.

Короче читать надо то, что там написано, ибо там коды приведены в шестнадцатеричной системе счисления и надо либо их перевести в десятичную, либо перед их значением ставить $, либо пользоваться символическими именами...