リストの各エントリーに表示する持ち上げ型ボタン

祖先 - 持ち上げ型ボタン (PRIM_MD.RaisedButton) コントロール (PRIM_MD.Control) コントロール (PRIM_CTRL) オブジェクト (PRIM_OBJT)

詳細

Prim_MD.ListRaisedButton は、持ち上げ型ボタンとしてビジュアライズされた、リスト内の持ち上げ型ボタンです。
 
それぞれの持ち上げ型ボタン タイプには、個別のエントリーへのアクセスを提供対応する CurrentItem があり、それぞれのエントリーに CurrentItem プロパティ経由でアクセスできるようになります。
 
リストの持ち上げ型ボタン コントロールは、リストのコントロール ビューから持ち上げ型ボタンがドラッグ アンド ドロップされると必ず作成されます。

例

次の例では、エントリー追加後、持ち上げ型ボタンの現在のアイテムに設定されたキャプションが設定されています。
 
ボタンがクリックされると、ボタンのキャプション 'clicked' が追加されます。
 
フォーカスを失うと、'clicked' がボタンのキャプションから取り除かれます。

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(569) Width(633) Theme(#SYS_THEME) Layoutmanager(#LayoutPage)
 
    Define_Com Class(#PRIM_TBLO) Name(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutPageRow) Displayposition(1) Parent(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutPageColumn) Displayposition(1) Parent(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutPageItem) Column(#LayoutPageColumn) Manage(#List) Parent(#LayoutPage) Row(#LayoutPageRow)
 
    Define_Com Class(#PRIM_TBLO) Name(#LayoutList)
    Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutListRow) Parent(#LayoutList) Displayposition(1)
    Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutListColumn) Parent(#LayoutList) Displayposition(1)
    Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutListItem) Column(#LayoutListColumn) Manage(#ListRaisedButton) Marginbottom(6) Marginleft(6) Marginright(6) Margintop(6) Parent(#LayoutList) Row(#LayoutListRow)
 
    Define_Com Class(#prim_md.List) Name(#List) Parent(#COM_OWNER) Displayposition(1) Tabposition(1) Left(0) Top(0) Height(569) Width(633) Layoutmanager(#LayoutList) Rowheight(79)
    Define_Com Class(#PRIM_MD.ListRaisedButton) Name(#ListRaisedButton) Caption('BUTTON') Displayposition(1) Dragstyle(None) Left(6) Parent(#List) Tabposition(1) Top(6) Height(67) Width(621)
 
 
        Evtroutine Handling(#Com_owner.CreateInstance)
 
            Begin_Loop Using(#xDemoNumber) To(10)
 
                Add_Entry To_List(#List)
 
                #ListRaisedButton.CurrentItem.Caption := 'Button:' + #xDemoNumber.AsString
 
            End_Loop
 
        Endroutine
 
 
        Evtroutine Handling(#ListRaisedButton.Click)
 
            #ListRaisedButton.CurrentItem.Caption += ' Clicked'
 
        Endroutine
 
 
        Evtroutine Handling(#List.ItemLostFocus)
 
            #ListRaisedButton.CurrentItem.Caption := #ListRaisedButton.CurrentItem.Caption.RemoveAll( ' Clicked' )
 
        Endroutine
End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

ﾒｿｯﾄﾞ

参照

すべてのコンポーネント クラス

テクニカルリファレンス

EPC142030 February 2019