Управление с клавиатуры

[kpishnik]

Помогите пожалуйста. Хочу организовать управление клавишами влево вправо. Но не выходит. Пробовал ASCII код. Так вот когда в условие вставляю проверку кода на какую то букву то все нормально, а когда использую код клавиш лево вправо(75, 77) то не хочет виполнять.

[SERG1980]

в чём делаете(делфи, паскаль)?

[puporev]

а когда использую код клавиш лево вправо(75, 77) то не хочет виполнять.

А что должно выполняться? И код пожалуйста покажите.

[Levsha100]

Для Delphi :

procedure TForm4.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
VK_LEFT: действие ; // влево
VK_RIGHT: действие ; // вправо
VK_UP: действие ; // вверх
VK_DOWN: действие ; // вниз
end;
end;

[puporev]

Пробовал ASCII код.

Судя по этому - Паскаль.

[eoln]

Тут символ

procedure TForm4.FormKeyPress(Sender: TObject; var Key: Char);

а тут число

case Key of
VK_LEFT

Используйте тогда уж procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
KeyPreview у формы в true.

[Roof]

вот тебе простейший пример движения Label на форме (Делфи):

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//лево, вверх, право, вниз.
 if key = 37 then Label1.Left:=  Label1.Left - 1;
 if key = 38 then Label1.Top:=   Label1.Top - 1;
 if key = 39 then Label1.Left:=  Label1.Left + 1;
 if key = 40 then  Label1.Top:=  Label1.Top + 1;
end;

[bag]

На паскале:

var
   k:integer;
...

if keypressed then
begin
   k:=ord(readkey);
   if k=0 then k:=255+ord(readkey);
end;
case k of
   330: xi:=xi-stepi;         {Влево}
   332: xi:=xi+stepi;        {Вправо}
   327: yi:=yi-stepi;         {Вверх}
   335: yi:=yi+stepi;        {Вниз}
   32: fire;                       {Кл. пробел}
   27: wyhod;                  {Кл. ESC}
end;
...

Очередной изврат, зато работает Дело в том, что в досе коды управляющих клавиш состоят из 2 байт: 0 и код клавиши, поэтому код клавиши в таком случае надо считывать дважды (как в приведенном выше куске программы)

[Arigato]

Если использовать чистый OnKeyDown, то после нажатия будет небольшая пауза, а затем объект начнет непрерывно двигаться.
Что бы этого избежать, можно использовать связку из OnKeyDown (фиксируем момент нажатия клавиши), OnTimer (выполняем нужные действия) и OnKeyUp (отмечаем отпускание клавиши).
Пример (устанавливаешь форме свойство KeyPreview = True, кидаешь компонент TShape и таймер TTimer, свойство таймера Interval позволяет задать скорость движения, лучше поставить значение 1):

var KeyCode: Word = 0;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KeyCode := Key;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KeyCode := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case KeyCode of
    VK_LEFT: Shape1.Left := Shape1.Left - 1;
    VK_RIGHT: Shape1.Left := Shape1.Left + 1;
    VK_UP: Shape1.Top := Shape1.Top - 1;
    VK_DOWN: Shape1.Top := Shape1.Top + 1;
  end; {case}
end;

[puporev]

Автору темы уже давно все до лампочки, а народ тренируется. Скоро код на Си напишут.