2020年10月31日 星期六

【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);