タブを表示する前にTabChangingイベントが発行されます。
タブフォルダ (PRIM_TAB) のメンバ
パラメータ
名前 |
タイプ |
データタイプ |
記述 |
OpenPage |
*Input |
OpenPageパラメータを使用してどのタブシートが開かれているかを確認します。 |
|
OpeningPage |
*Input |
開いているページへの参照 |
|
CanChangePage |
*Both |
ブール値 |
別のタブシートを表示できるかどうかを設定します。 |
詳細
TabChanging イベントは、ユーザーが別のタブをクリックすると発生します。
CanChangePage プロパティは、タブシートの変更を防ぐために使用できます。
これは、 Center の DockPosition タブにのみ適用されます。
例
この例では、オープニングページのキャプションがキャプションの形式で示されています。
ユーザーは Page2 に向かうことはできません。
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('Docking Framework Sample') Clientheight(454) Clientwidth(912) Height(493) Left(188) Top(205) Width(928) Layoutmanager(#TableLayout1)
Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column1) Manage(#Tab1) Parent(#TableLayout1) Row(#Row1)
Define_Com Class(#PRIM_TAB) Name(#Tab1) Bottomlayoutpriority(4) Componentversion(2) Displayposition(1) Height(454) Left(0) Leftlayoutpriority(1) Parent(#COM_OWNER) Rightlayoutpriority(2) Tabposition(1) Top(0) Toplayoutpriority(3) Width(912)
Define_Com Class(#PRIM_TBSH) Name(#Sheet1) Caption('Page1') Displayposition(1) Height(430) Left(0) Parent(#Tab1) Tabposition(1) Tabstop(False) Top(24) Width(912)
Define_Com Class(#PRIM_TBSH) Name(#Sheet2) Caption('Page2') Displayposition(2) Height(430) Left(0) Parent(#Tab1) Tabposition(2) Tabstop(False) Top(24) Width(912)
Define_Com Class(#PRIM_TBSH) Name(#Sheet3) Caption('Page3') Displayposition(3) Height(430) Left(0) Parent(#Tab1) Tabposition(3) Tabstop(False) Top(24) Width(912)
Evtroutine Handling(#Tab1.TabChanging) Openingpage(#OpeningPage) Canchangepage(#CanChangePage)
#com_owner.Caption := #OpeningPage.caption
#CanChangePage := (#OpeningPage *IsNotEqualTo #Sheet2)
Endroutine
End_Com