TabControl 在 mobile 的世界中,是一個非常基本、也是不可或缺的元件,使用的方式很單純,先在 Form 上擺一個 TabControl 的元件後,就可以在 TabControl 上按滑鼠右鍵,即可得到如下畫面,選擇 Add Item 的 TTabItem 後,即可新增一個頁籤

下圖為新增了兩個頁籤後的樣子

TabControl 比較特別的屬性,就是 TabPosition,主要是用來決定顯示頁籤的 Title 顯示在哪裡(或不顯示),分別可以設定為 tpTop(預設)、tpBottom、tpDots、tpNone,就讓我偷懶一下把官網的圖貼到這裡來吧...

有時候我們運用 TabControl 不會顯示頁籤,是為了按下 button 後,弄一個轉場切換頁面的效果,這部分 delphi 其實已經幫我們做好了,不過是放在 TAction 內,如果不仔細找,還真不知道有這個好用的東西…那麼該如何用呢?

首先,我們還是回到有兩個頁籤的那個程式,然後將 TabPosition 設定為 tpNone,然後我們在第一個頁籤,置放一個 ToolBar,然後在 ToolBar 上面放一個 Button,並且將 Align 設定為 alRight,再將 StyleLookup 設定為 arrowrighttoolbutton,然後為了區分兩個頁籤,我們要分別給予兩個頁籤不同顏色,所以需要在 TabItem1 上置放一個 TRectangle,並將 Fill.Color 的屬性設定為 Dodgerblue,如果你都設定正確的話,長相應該向這樣

同樣的,切換到第二個頁籤,然後同樣擺一個 ToolBar 與 Button,不一樣的只是 Align 設定為 alLeft,再將 StyleLookup 設定為 arrowlefttoolbutton,TRectangle.Fill.Color 則設定為 Firebrick,然後拖一個 TActionList 元件到 Form 上,像這樣

這時候回到 Button1,然後 在 Action 的屬性上,選擇 New Standard Action -> Tab -> TChangeTabAction

然後在 ActionList1 上用滑鼠左鍵點兩下,選擇你剛剛新增出來的 ChangeTabAction1,然後將 Tab 的屬性選擇為 TabItem2

然後在 Button2 上依樣畫葫蘆...如下