Коды стрелок (Delphi)

[VadEr]

Доброй ночи!

Почему уменя стрелки не обрабатываются (не возникает события)? А вот Esc работает. Помогите разобраться.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    #72: Image1.Canvas.LineTo(x0,y0-dL);
    #75: Image1.Canvas.LineTo(x0-dL,y0);
    #77: Image1.Canvas.LineTo(x0+dL,y0);
    #80: Image1.Canvas.LineTo(x0,y0+dL);
    #27: Close; // ESC
  end;
end;

p.s. KeyPreview = True. Виртуальные коды работают, но надо именно так.

[Levsha100]

Ну, коды стрелок просто : 38,39,40,37.

[VadEr]

Но, в самом условии задания указаны именно коды, кот-е я прописал???
Вся проблема в том, что нажатие клавиши со стрелкой не приводит к событию "OnKeyPress" в принципе (даже с вашими кодами).

[VadEr]

Тогда, подскажите как вызвать (любое) событие нажатия стрелки (#72, #75, #77, #80). Почему, только виртуальные коды стрелок работают? (Может, что-то в настройках поменять)

[Олвин]

нажатие клавиши со стрелкой не приводит к событию "OnKeyPress"

Да, сталкивался с этой проблемой. Причину пусть скажут более грамотные люди, а способ устранения прост - используйте событие OnKeyDown, вместо OnKeyPress.

[VadEr]

Да, спасибо понял. К тамуже, там коды, еще, и без решетки ставить надо.

[Олвин]

Верно. Если поставить код с решеткой, то получится значение типа char, а не byte.