2020年11月11日 星期三

【Delphi Multi-Device Application】 觸控頁面滑動切換

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

TabControl設定

放置 [ActionList],產生二個 ChangeTabAction,將Tab屬性分別對應到TabItem1、TabItem2
ActionList設定


放置 [GestureManager]
   TabControl.Touch選項
     GestureManager 指向 GestureManager1,
     Gestures → Standard觸控方向的動作,Left指向ChangeTabAction2,Right指向ChangeTabAction1。




沒有留言:

張貼留言