Delphi 自带的 TabSlidingProject 演示程序的一处Bug

启动程序,你会发现按下返回键程序无法退出,问题出在:

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 条评论

沙发空缺中,还不快抢~