频道分类

Delphi 如何按下ESC键退出程序

作者:admin 来源: 日期:2020/1/5 15:55:03 人气: 标签:

 
分别在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;