Отправлено: 10.03.09 20:59. Заголовок: Как сделать недоступным контекстное меню?

Подскажите, как при определенных условиях сделать недоступным
контекстное меню (или хотя бы сделать недоступными некоторые из его пунктов).
У пунктов вроде есть свойство Enabled, а как получить к нему доступ в программе
понять не могу.

 Отправлено: 10.03.09 23:04. Заголовок: Iv пишет: У пунктов..

Iv пишет:

цитата:

У пунктов вроде есть свойство Enabled, а как получить к нему доступ в программе понять не могу.

Рабочий пример:

цитата:

*-----------------------------------------------------------------------------* Procedure MakeContextMenu *-----------------------------------------------------------------------------* DEFINE CONTEXT MENU OF Form_1 POPUP 'Menu &File' ITEM 'Check File - More Tests Item' ACTION Context1_Click() NAME CHECK ITEM 'UnCheck File - More Tests Item' ACTION Context2_Click() NAME UNCHECK ITEM 'Enable File - Topmost Window' ACTION Context3_Click() NAME ENABLE ITEM 'Disable File - Topmost Window' ACTION Context4_Click() NAME DISABLE END POPUP SEPARATOR ITEM 'About' ACTION MsgInfo ("Free GUI Library For Harbour","MiniGUI Main Demo") END MENU Form_1.CHECK.Enabled := !Form_1.File_Modal.Checked Form_1.UNCHECK.Enabled := Form_1.File_Modal.Checked Form_1.ENABLE.Enabled := Form_1.File_Topmost.Enabled Form_1.DISABLE.Enabled := !Form_1.File_Topmost.Enabled Return *-----------------------------------------------------------------------------* Procedure Context1_Click *-----------------------------------------------------------------------------* Form_1.File_Modal.Checked := .T. MsgInfo ("File - More Tests is Checked") MakeContextMenu() Return *-----------------------------------------------------------------------------* Procedure Context2_Click *-----------------------------------------------------------------------------* Form_1.File_Modal.Checked := .F. MsgInfo ("File - More Tests is Unchecked") MakeContextMenu() Return *-----------------------------------------------------------------------------* Procedure Context3_Click *-----------------------------------------------------------------------------* Form_1.File_Topmost.Enabled := .T. MsgInfo ("File - Topmost Window is Enabled") MakeContextMenu() Return *-----------------------------------------------------------------------------* Procedure Context4_Click *-----------------------------------------------------------------------------* Form_1.File_Topmost.Enabled := .F. MsgInfo ("File - Topmost Window is Disabled") MakeContextMenu() Return