DockAllowUndockプロパティ

LANSA

DockAllowUndockプロパティ

タブ・フレームワーク・プロパティです。タブ・フレームワーク・アプリケーションの例については、タブ・フォルダー を参照してください。

DockAllowUndockプロパティを使用して、タブ・シートをタブ・フォルダから移動(切り離し)できるようにするか指定します。

このプロパティは、TrueまたはFalseに設定できます。

プロパティがTrueの場合、タブ・シート上にドッキング・バー (二重線) が表示されます。ユーザーは、ドッキング・バーからドラッグしてタブ・シートを切り離します。

LDockAllowUndockメソッドの効果を確認するには、以下のコードをコピー・貼り付けしてください。

Function Options(*DIRECT) 

BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) CAPTION('Docking Framework Sample') CLIENTHEIGHT(378) CLIENTWIDTH(549) HEIGHT(405) LAYOUTMANAGER(#ATLM_1) LEFT(418) TOP(163) WIDTH(557)
DEFINE_COM CLASS(#PRIM_TAB) NAME(#TAB_1) DISPLAYPOSITION(1) HEIGHT(378) LEFT(0) LEFTTABWIDTH(154) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(0) VISUALSTYLE(#VS_TAB) WIDTH(549)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#TAB_1) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_1) CAPTION('Page1') DISPLAYPOSITION(1) DOCKCLOSEBUTTON(True) DOCKPOSITION(Left) HEIGHT(349) LEFT(4) PARENT(#TAB_1) TABPOSITION(1) TABSTOP(False) TOP(25) WIDTH(146)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_2) CAPTION('Page2') DISPLAYPOSITION(2) DOCKCLOSEBUTTON(True) DOCKPOSITION(Left) HEIGHT(349) LEFT(4) OPENED(True) PARENT(#TAB_1) TABPOSITION(2) TABSTOP(False) TOP(25) WIDTH(146)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_3) CAPTION('Page3') DISPLAYPOSITION(1) HEIGHT(349) LEFT(4) PARENT(#TAB_1) TABPOSITION(3) TABSTOP(False) TOP(25) WIDTH(382)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_4) CAPTION('Page4') DISPLAYPOSITION(2) HEIGHT(349) LEFT(4) PARENT(#TAB_1) TABPOSITION(2) TABSTOP(False) TOP(25) WIDTH(382)
DEFINE_COM CLASS(#PRIM_TBSH) NAME(#TBSH_5) CAPTION('Page5') DISPLAYPOSITION(3) HEIGHT(349) LEFT(4) PARENT(#TAB_1) TABPOSITION(1) TABSTOP(False) TOP(25) WIDTH(382)
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION('Make Page 1 and Page 2 Dockable') DISPLAYPOSITION(1) LEFT(32) PARENT(#TBSH_3) TABPOSITION(1) TOP(171) WIDTH(321)
EVTROUTINE HANDLING(#PHBN_1.Click)
set com(#tbsh_1 #tbsh_2) dockallowundock(True)
ENDROUTINE
End_Com