處理硬按鈕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;