第一種方法：

在窗體上放一個(gè)按鈕：

1>、設(shè)置按鈕的Cancel屬性為T(mén)rue；

2>、在按鈕的點(diǎn)擊事件中寫(xiě)：

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

?

Button按鈕的Cancel屬性：
??????????????? 該屬性決定按鈕是否為Cancel按鈕。當(dāng)設(shè)置為true時(shí)，為Cancel按鈕，即當(dāng)用戶(hù)按Esc鍵時(shí)，將執(zhí)行按鈕的 OnClick事件處理程序。當(dāng)窗體中有多個(gè)Cancel按鈕時(shí)，則只調(diào)用Tab Order屬性最小按鈕的OnClick事件。

?

第二種方法：

1>.設(shè)置窗體的keypreview屬性為：True；//可以接收鍵盤(pán)操作

2>、在窗體的鍵盤(pán)事件中寫(xiě)：

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

?

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。