ボタンに添付するメニューへの参照
プッシュ ボタン (PRIM_PHBN) のメンバ
データ タイプ - PRIM_PMNU - マウスの右ボタンをクリックするとポップアップ メニューを表示します。
Menu プロパティは、ボタンに接続する PRIM_PMNU への参照です。 メニューが添付されると、 Click イベントはもう発生しません。 Enter キーを使用すると、 Default メニュー項目はそのクリックイベントを発生させます。 MenuPromptPosition プロパティは、メニュー矢印を配置するために使用されます。
この例では、同じポップアップメニューを使用するように設定された 2 つのボタンを示しています。 MenuPosition と MenuSeparator プロパティは、第 2 ボタンを使用して、クリックや入力でメニューが表示される場所やどのようにボタンを管理するかを変更しています。
Function Options(*DIRECT) Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(660) Clientheight(338) Componentversion(2) Top(215) Left(237) Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Button1') Displayposition(1) Left(7) Parent(#COM_OWNER) Tabposition(1) Top(6) Menu(#PopupMenu1) Width(90) Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Button2') Displayposition(2) Left(111) Parent(#COM_OWNER) Tabposition(2) Top(7) Width(138) Menu(#PopupMenu1) Menuposition(Right) Menuseparator(True) Define_Com Class(#PRIM_PMNU) Name(#PopupMenu1) Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Caption('Item1') Displayposition(1) Parent(#PopupMenu1) Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(2) Parent(#PopupMenu1) Caption('Item2') Default(True) Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(3) Parent(#PopupMenu1) Caption('Item3') Evtroutine Handling(#MenuItem1.Click #MenuItem2.Click #MenuItem3.Click) Com_Sender(#Sender) #Com_owner.Caption := #Sender.Caption Endroutine End_Com
2018 - V14SP1