启动程序,你会发现按下返回键程序无法退出,问题出在:
procedure TTabSlideTransitionFrmBase.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkHardwareBack then begin TabControl1.Previous; Key := 0; end; end;
自己处理下,检查处理下,在首页时不设置 Key=0 就 OK 了,简单修改如下:
procedure TTabSlideTransitionFrmBase.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkHardwareBack then begin if TabControl1.Previous then Key := 0; end; end;
0 条评论
沙发空缺中,还不快抢~