【Delphi Multi-Device Application】 Button.Click 觸發頁面滑動切換

 放置 [TabControl]，並建立二個 [TabItem]，TabControl.TabPosition屬性設置為None，如下圖

TabControl設定

在TabItem1裡放置 [Button1]，TabItem2裡放置 [Button2] 做切換頁籤的觸發事件。

---------------------

Button1.OnClick

---------------------

  //滑動切換到第二個頁籤

  TabControl1.SetActiveTabWithTransition(Self.TabItem2, TTabTransition.Slide);

---------------------

Button2.OnClick

---------------------

  //滑動切換回第一個頁籤

  TabControl1.SetActiveTabWithTransition(Self.TabItem1, TTabTransition.Slide, TTabTransitionDirection.Reversed);