delphi按下ESC键就退出程序

本文整理自网络，侵删。

 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then Close();//判断如果按下ESC键就退出程序
end;

end.
 

相关阅读 >>

Delphi idftp 详解

Delphi inputquery

Delphi 下载并运行的代码

Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)

Delphi 字符串分割

Delphi hex 相关单元

Delphi根据进程pid等待进程结束或者结束进程

Delphi多线程

Delphi 写变速齿轮外挂

Delphi 在vcl中显示一个非激活状态的窗口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi按下ESC键就退出程序