1响应OnKeyPress事件。

此事件在用户键入某键时触发。

procedure TForm1.FormKeyPress(Sender:Object;var key:Char);

var

  outmsg:string;

begin

  outmsg := format('Key ''%s'' pressed',[key]);
  Application.MessageBox(PChar(outmsg),'Information');

end;

onkeypress事件只能响应字符。

2.onkeydown事件在用户按下某键时触发。

onkeypress先触发，然后才是onkeydown.

3.onkeyup事件在用户释放按键是触发，必须删除Onkeydown和onkeypress才能响应。