第一種方法：

在窗體上放一個按鈕：

1>、設置按鈕的Cancel屬性為True；

2>、在按鈕的點擊事件中寫：

procedure TForm1.btn1Click(Sender: TObject);
begin
? Close;
end;

?

Button按鈕的Cancel屬性：
??????????????? 該屬性決定按鈕是否為Cancel按鈕。當設置為true時，為Cancel按鈕，即當用戶按Esc鍵時，將執行按鈕的 OnClick事件處理程序。當窗體中有多個Cancel按鈕時，則只調用Tab Order屬性最小按鈕的OnClick事件。

?

第二種方法：

1>.設置窗體的keypreview屬性為：True；//可以接收鍵盤操作

2>、在窗體的鍵盤事件中寫：

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

?

總結

以上是生活随笔為你收集整理的Delphi 按Esc快捷键退出程序的简单方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。