フォームのメニュー バーを設定するために使用します。
フォーム (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
2018 - V14SP1