如何按下ESC键退出程序

分别在FormCreate,FormKeyPress事件中输入以下代码:

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:= True;  //可以接收键盘操作
end;

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then application.terminate;  //关闭程序
end;