Position of the menu when shown
Member of Toolbar Button (PRIM_SPBN)
Data Type - Enumeration
The MenuPosition property specifies where the menu will appear when shown. If there is insufficient space, the menu will be moved automatically.
Enum Value | Description |
---|---|
Bottom | Show below the button |
Right | Show to the right of the button |
This example shows two buttons configured to use the same popup menu. The MenuPosition and MenuSeparator properties have been used on the second button to change the where the menu appears and how the button manages a click and Enter.
Function Options(*DIRECT) Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(660) Clientheight(338) Componentversion(2) Top(215) Left(237) Define_Com Class(#PRIM_SPBN) Name(#Button1) Caption('Button1') Displayposition(1) Left(7) Parent(#COM_OWNER) Tabposition(1) Top(6) Menu(#PopupMenu1) Width(90) Define_Com Class(#PRIM_SPBN) 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
Febuary 18 V14SP2