AFsoft WebSite (AFsoft.JP)

DelphiXE3　[FMX] タブコントロール（TabControl）2013/11/04

　
前回は [Grids]内のヘッダー(Header)について見てみました。これで[Grids]内は終了となります。次は[Common Controls]内のタブコントロール(TabControl)について見ていきます。
タブコントロールは、機能内容は多少異なるかもしれませんが、Delphi2010・VCLアプリケーションにもあります。
　　　【Delphi2010の記事はこちら】
　　　【DelphiXE3[VCLアプリケーション]の記事はこちら】
　
[Common Controls]内

FMX

　
ヘルプより。

TTabControl は、ノートの仕切りページのような外見のタブセットです。
　
TTabControl を使用すると、複数のタブ設定を持つコントロールを FireMonkey フォームに追加することができます。現在のタブが変更されると、タブコントロールでは、OnChange イベントのハンドラの中で、自身の内容を直接更新して変更を反映する必要があります。
　
TTabControl オブジェクトを無効にすると、一度にすべてのタブが無効になります。特定のタブを有効または無効にするには、Tabs プロパティをプログラムで以下のコード断片のように使用することができます。この例では、インデックスが 1 のタブが無効にされています。
　
TabControl1.Tabs[1].Enabled := False;
　
TTabControl を使用すると、特定アプリケーション向けのオプションや構成など、優れた機能を持つ豊かなグラフィカルインターフェイスを作成できます。

FullSize

タブボタンが、タブバンド内のスペースをすべて占有するかどうかを示します。
　
FullSize プロパティを True に設定すると、クリック可能なタブボタンが、タブバンド内のスペースをすべて占有するようになります。たとえば、非常に大きな幅のタブコントロールコンポーネントがあり、そこに 2 つしかタブがなかった場合、FullSize を True に設定すると、この 2 つのタブボタンが、タブコントロールの幅いっぱいに広がります。
FullSize を False に設定した場合には、Delphi が自動的に、タブボタンが占める領域を調整してくれます。

TabHeight

クリック可能なタブのキャプションの高さを、ピクセルで示します。

TabIndex

アクティブタブのインデックスを示します。
TabIndex プロパティを使用すると、このタブコントロールコンポーネント上で現在アクティブである（フォーカスされている）タブのインデックスを、設定または取得することができます。値 0 は、最初のタブがアクティブであることを示し、値 -1 はアクティブなタブがない、もしくはタブ自体がないことを表します。

TabPosition

tpTop, tpBottom, tpNone

　
OnChange

このタブコントロールコンポーネント上のアクティブタブを変更した後すぐに、発生します。
　
OnChange イベントハンドラを記述すると、このタブコントロールコンポーネントのアクティブタブが変更された際、追加機能を提供することができます。

配置したタブコントロールを右クリックし、表示されるコンテキストメニューの「項目エディタ」を選択指定、あるいは、ダブルクリックをすると、「項目デザイナ」画面が表示されます。

項目の種類は「TTabItem」のみ選択出来る状態となっています。

　
　
試しに、TTabItem を３つ追加してみます。

↓

　
さて、使用方法ですが、VCLアプリケーションでのタブコントロールは、タブ毎に別々にコンポーネントを配置するのではなく、１パターンのみで、タブ（現在アクティブのタブ＝タブインデックス）により、コンポーネントのプロパティ値を変更させ、コンポーネントを共通利用する、という形になりましたが、さて、FireMonkey(FMX)ではどうでしょうか？　試しに、ラベルとエディットとボタンを配置してみます。