右クリックで表示されるポップアップ メニューへの参照
コントロール (PRIM_CTRL) のメンバ
データ タイプ - PRIM_PMNU - マウスの右ボタンをクリックするとポップアップ メニューを表示します。
PopupMenu プロパティは、右クリックで表示される PopupMenu を指定します。
この例では、ポップアップがメインページに添付されています。
Begin_Com Role(*EXTENDS #PRIM_FORM) Height(456) Width(864) Popupmenu(#PopupMenu) Define_Com Class(#PRIM_PMNU) Name(#PopupMenu) Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Caption('Item1') Displayposition(1) Parent(#PopupMenu) Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Caption('Item2') Displayposition(2) Parent(#PopupMenu) Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Caption('Item3') Displayposition(3) Parent(#PopupMenu) Define_Com Class(#PRIM_LABL) Name(#Label) Displayposition(1) Ellipses(Word) Height(42) Left(6) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(7) Verticalalignment(Center) Width(195) Alignment(Center) Caption('Right click to see the menu') Evtroutine Handling(#MenuItem1.Click #MenuItem2.Click #MenuItem3.Click) Com_Sender(#Sender) #Label := #Sender.Caption Endroutine End_Com
2018 - V14SP1