KeyPress

[Blondинка]

Я здесь новичок... У меня тут маленькая проблемка в Делфи(

Событие keyPress почему-то не отлавливает нажатие стрелок...
Кому несложно, помогите, пожалуйста...

[_-Re@l-_]

Используйте KeyDown
Пример:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        If Key = VK_LEFT  Then //стрелка влево
        Begin
                //действия
        End;
        If Key = VK_RIGHT Then //стрелка вправо
        Begin
                //действия
        End;
        If Key = VK_UP Then //стрелка вверх
        Begin
                //действия
        End;
        If Key = VK_DOWN Then //стрелка вниз
        Begin
                //действия
        End;
        If Key = VK_RETURN Then //Enter
        Begin
                //действия
        End;
end;

[Blondинка]

Спасибо большое) Не додумалась что-то до keyDown)

[DeKot]

Добавлю, что вместо оператора if ... then лучше применять оператор выбора case

case Key of
   VK_Right: begin
               {действие}
             end;
   VK_Left: begin
              {действие}
             end;
   VK_Up:    begin
               {действие}
             end;
   VK_Down: begin
               {действие}
             end;
   end;

[_-Re@l-_]

DeKot, вы правы.Что-то я запамятовал.

[Blondинка]

DeKot, cпасибо, конечно) Но это я уже сама как-нибудь соображу)