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;