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 上依樣畫葫蘆...如下
這時候就可以編譯成 apk 然後實際執行看看，按了 button 會怎樣...
to be continued...
留言列表
Old_delphi (2)