启动程序，你会发现按下返回键程序无法退出，问题出在： procedure TTabSlideTransitionFrmBase.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key =