ドロップダウンアイテム - Visibleプロパティ 

アイテムの表示または非表示

ドロップダウンアイテム (PRIM_MD.DropdownItem) のメンバ

データタイプ - ブール値

詳細

Visible はアイテムが表示されていると TRUE を返します。

例

次の例では、アイテムはキャプション値に数字フィールドの値が含まれている場合にのみ表示され、このフィールドが 0 に等しい場合、すべてのエントリーが表示されます。 

     Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Layoutmanager(#Layout1) 

        Define_Com Class(#PRIM_TBLO) Name(#Layout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopLeft) Column(#Layout1Column1) Manage(#SpinEdit) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down)
        Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item2) Alignment(TopLeft) Column(#Layout1Column1) Manage(#DropDown) Parent(#Layout1) Row(#Layout1Row1) Sizing(FitToWidth) Flow(Down)
        Define_Com Class(#PRIM_MD.Dropdown) Name(#DropDown) Caption('Caption') Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(1200)
        Define_Com Class(#PRIM_MD.SpinEdit) Name(#SpinEdit) Caption('Caption') Displayposition(2) Left(0) Parent(#COM_OWNER) Tabposition(2) Top(75) Width(1200) 

           Evtroutine Handling(#COM_OWNER.Initialize) 

              Begin_Loop Using(#xDemoNumber) To(15) 

                 #DropDown.Items.Add( #xDemoNumber.AsString ) 

              End_Loop 

           Endroutine 

           Evtroutine Handling(#SpinEdit.Changed) 

              For Each(#entry) In(#DropDown.Items) 

                 #entry.Visible := (#entry.Caption.AsNumber = #SpinEdit) Or (#SpinEdit = 0) 

              Endfor 

           Endroutine 

     End_Com


参照

すべてのコンポーネント クラス
テクニカルリファレンス