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