1. 程式人生 > >Delphi 按Esc快捷鍵退出程序的簡單方法

Delphi 按Esc快捷鍵退出程序的簡單方法

mina 點擊 close 鍵盤事件 blog gpo div ron begin

第一種方法:

在窗體上放一個按鈕:

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快捷鍵退出程序的簡單方法