Форум » GUI » Как сделать недоступным контекстное меню? » Ответить

Как сделать недоступным контекстное меню?

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

Ответов - 1

gfilatov: 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



полная версия страницы