处理硬按钮vkHardwareBack

Question

在我的应用程序中，我使用带有3个选项卡的TTabControl：带有3个按钮的主选项卡（TabItem1）：Button1将带我到TabItem2，Button2到TabItem3和按钮3到TabItem3。

我处理FormKeyUp事件控制导航和：

如果按下的键是vkHardwareBack那么如果ActiveTab是TabItem1，我弹出一个消息，如果用户想退出应用程序要求。如果答案是肯定的，我关闭应用程序，如果没有任何反应。这部分工作得很好！

但如果ActiveTab是TabItem2或TabItem3然后我想要的应用程序通过发射TTabChangeItem与性能标准动作回到主窗口（TabItem1）：

• 标签：TabItem1
• 方向：tdReversed
• 交易：ttSlide

但这没有发生。当用户在ActiveTab是TabItem2或TabItem3时按下vkHardwareBack时，应用程序将转到后台并显示主屏幕。

任何想法我做错了什么？

这里是一个在FormKeyUp过程：

procedure TfMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; 
    Shift: TShiftState); 
begin 
    if Key = vkHardwareBack then 
    if TabControl.ActiveTab = TabItem1 then 
     if MessageDlg('Are you sure you want to Exit?', TMsgDlgType.mtWarning, 
      [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrYes then 
     MainActivitiy.finish 
    else 
     ChangeTabAction1.Execute; // I tried here also: TabControl.ActiveTab := TabItem2; but still the same results 
end; 

Answer 1

也许尝试像这样（未经）：

procedure TfMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); 
begin 
    if Key = vkHardwareBack then 
    begin 
    Key := 0; 
    if TabControl.ActiveTab = TabItem1 then 
    begin 
     if MessageDlg('Are you sure you want to Exit?', TMsgDlgType.mtWarning, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrYes then 
     begin 
     MainActivitiy.Finish; 
     end; 
    end else 
    begin 
     ChangeTabAction1.Execute; 
    end; 
    end; 
end;