bitbtn设快捷按钮esc procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif key=27 thenapplication.Terminate;end;设它的cancel属性为true就行了~~ delphi 2023-10-22 224 点赞 3 评论 339 浏览