Помогите разобраться, как закрыть Popup интегрированный в форму?
Проблема в следующем не могу по кнопке выход сразу деактивировать Popup и удалить форму, если фокус не на меню то все нормально, а в противном случае дважды приходиться нажимать кнопсу ВЫХОД.
Данная форма вызывается из кнопочного меню верхнего уровня
Заранее благодарен
**************************
oform=CREATEOBJECT("form3")
****Заголовок
oform.caption = "Справочная информация"

oform.AddObject('cmdCmndBtn5','cmdMyCmndQuit')
oform.cmdCmndBtn5.Visible =.T. &&


oform.show(1)
READ Events
RELEASE all
****Форма для справочников
DEFINE CLASS form3 as Form
Name="form3"
ShowWindow =1 && In Top-Level Form
WindowState=2 && Maximized
Borderstyle=2

PROCEDURE Init
*Определение меню справочников
DEFINE POPUP sPopSpr FROM 3,75 TO 38,120 FONT 'TimesNewRoman', 12 STYLE 'B' COLOR SCHEME 2 &&IN WINDOW form3

DEFINE BAR 1 OF sPopSpr ;
PROMPT '\<Справочная информация' && First item
DEFINE BAR 2 OF sPopSpr ;
PROMPT '\-' && Second item
DEFINE BAR 3 OF sPopSpr ;
PROMPT '\<Справочник Лицензий '
DEFINE BAR 4 OF sPopSpr ;
PROMPT '\<Выход' && Fourth item

ON SELECTION BAR 4 OF sPopSpr deactivate popup sPopSpr

ACTIVATE popup sPopSpr Nowait

ENDPROC


ENDDEFINE


****Кнопка ВЫХОД
DEFINE CLASS cmdMyCmndQuit AS CommandButton
Caption = '\<Выход' && Надпись на кнопке
Left = 720
Top = 640
Width = 200
Height = 35 && Высота
FontSize = 11
FontBold =.t.

PROCEDURE Click
Thisform.Release()
DEACTIVATE popup sPopSpr
ENDPROC

ENDDEFINE

define class MyCustom_Menu as Custom
PROCEDURE Init
*Определение меню справочников
DEFINE POPUP sPopSpr FROM 3,75 TO 38,120 FONT 'TimesNewRoman', 12 STYLE 'B' COLOR SCHEME 2 &&IN WINDOW form3

DEFINE BAR 1 OF sPopSpr ;
PROMPT '\<Справочная информация' && First item
DEFINE BAR 2 OF sPopSpr ;
PROMPT '\-' && Second item
DEFINE BAR 3 OF sPopSpr ;
PROMPT '\<Справочник Лицензий '
DEFINE BAR 4 OF sPopSpr ;
PROMPT '\<Выход' && Fourth item

ON SELECTION BAR 4 OF sPopSpr deactivate popup sPopSpr

ACTIVATE popup sPopSpr nowait
ENDPROC
enddefine

Хотелось бы одним выстрелом двух зайцев - если такое в принципе возможно.

Уже склоняюсь к мысли организовать меню с помощью другого Controlа