delphi按下ESC键就退出程序

本文整理自网络，侵删。

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

end.
 

相关阅读 >>

Delphi 根据进程pid获取程序所在路径的函数

Delphi cef4 忽略不安全网站

Delphi 向其他程序发送模拟按键

Delphi下获取ie的useragent的方法

Delphi 删除指定字符串的所有实例

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

Delphi xe6调用android手机标准功能

Delphi idsmtp发送邮件

Delphi 汉字与区位码

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

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