本文整理自网络,侵删。
第一种方法:
在窗体上放一个按钮:
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);beginif key = #27 then application.terminate; //关闭程序 end;
相关阅读 >>
Delphi 2009 之 tstringbuilder 类[1]: create
更多相关阅读请进入《Delphi》频道 >>