タブ表示前に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