天真冰棍

文章
4
资源
0
加入时间
2年10月17天

bitbtn设快捷按钮esc

procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif key=27 thenapplication.Terminate;end;设它的cancel属性为true就行了~~