左右箭头的事件

Question

在笔记本点击左右箭头不触发事件：
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #37) or (Key = #38)    then Showmessage('123');
end;
没有触发:Showmessage('123');是什么原因?

Answer 1

不要放到KeyPress事件中，放到KeyDown事件中
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview := True;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 37) or (Key = 38) or (Key = 123) or (Key = 39)  or (Key = 40)  then Showmessage('True')
  else ShowMessage(IntToStr(Key));
end;