就是捕获键盘操作的函数。。。。//举个简单例子procedure TForm1.editTrayKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then //表示按回车时执行的动作 begin // end;end; 至于key的值有很多，分别代表按下键盘下不同的键
