メニュー項目のとなりにラジオボタンを表示 |
メニューアイテム (PRIM_MITM) のメンバ
データタイプ - ブール値
RadioItemプロパティを使って、メニュー項目をラジオボタンのように表示することができます。
GroupIndexとCheckedプロパティを使って、相互排他的なメニューのオプション一式を設定できます。
この例では、メニュー項目をクリックするたびに Checked プロパティが自動的に True に設定されます。
4 つのメニュー項目はすべて同じグループに属しているため、他のすべてのメニュー項目は False に設定されています。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(897) Clientheight(384) Componentversion(2) Top(227) Left(222) Menubar(#MenuBar1)
Define_Com Class(#PRIM_MBAR) Name(#MenuBar1) Parent(#COM_OWNER)
Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Caption('Item1') Displayposition(1) Parent(#MenuBar1)
Define_Com Class(#PRIM_SMNU) Name(#SubMenu1) Parent(#MenuItem1)
Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(1) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(2) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem4) Displayposition(3) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem5) Displayposition(4) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Evtroutine Handling(#MenuItem2.click #MenuItem3.click #MenuItem4.click #MenuItem5.click) Com_Sender(#Sender)
#Sender.Checked := true
Endroutine
End_Com