フォーム - MenuBarプロパティ 

フォームのメニューバーを設定するために使用します

フォーム (PRIM_FORM) のメンバ

データタイプ - PRIM_MBAR - メニューバーにメニューの項目があります。

詳細

Menubar プロパティは、 PRIM_MBAR への参照です。

メニューバーは、常にフォームタイトルバーの下端にアタッチされて表示されます。

例

この例では、 1 つのオプションにつき 3 つのオプションと 3 つの項目を持つ簡単なメニューバーを示しています。 

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(454) Clientheight(248) Componentversion(2) Top(227) Left(199) Menubar(#MenuBar1) 

        Define_Com Class(#PRIM_MBAR) Name(#MenuBar1) Parent(#COM_OWNER)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Displayposition(1) Parent(#MenuBar1) Caption('Option 1')
        Define_Com Class(#PRIM_SMNU) Name(#SubMenu1) Parent(#MenuItem1)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(1) Parent(#SubMenu1) Caption('Item 1')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(2) Parent(#SubMenu1) Caption('Item 2')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem4) Displayposition(3) Parent(#SubMenu1) Caption('Item 3')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem5) Displayposition(2) Parent(#MenuBar1) Caption('Option 2')
        Define_Com Class(#PRIM_SMNU) Name(#SubMenu2) Parent(#MenuItem5)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem6) Displayposition(1) Parent(#SubMenu2) Caption('Item 1')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem7) Displayposition(2) Parent(#SubMenu2) Caption('Item 2')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem8) Displayposition(3) Parent(#SubMenu2) Caption('Item 3')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem9) Displayposition(3) Parent(#MenuBar1) Caption('Option 3')
        Define_Com Class(#PRIM_SMNU) Name(#SubMenu3) Parent(#MenuItem9)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem10) Displayposition(1) Parent(#SubMenu3) Caption('Item 1')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem11) Displayposition(2) Parent(#SubMenu3) Caption('Item 2')
        Define_Com Class(#PRIM_MITM) Name(#MenuItem12) Displayposition(3) Parent(#SubMenu3) Caption('Item 3') 

     End_Com


参照

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

  • No labels