Меню в SDI-форме Visual FoxPro

Возьмем вновь форму ListForm, в которой ее свойство ShowWindow имеет значение 2, и добавим в обработчик ее события Init команду

do d:\FormMenu.mpr with This

вызывающую меню FormMenu, которое мы хотим открыть в форме (рис. 11.10).

Рис. 11.10. Меню в SDI-форме

Проследим отличия в процессе создания такого меню.

Сформируем меню d:\FormMenu.mnx с теми же командами, что и приведенное на рис. 11.8 короткое меню, несколько упростив код процедуры DoChangeInCombo1( ):

procedure DoChangeInCombo1( )

                                            oForm = _SCREEN.ActiveForm

                                            oForm.Combo1.Value = Prompt( )

                                            oForm.Combo1.InteractiveChange

endProc

В диалоге General Options (см. рис. 11.7) установим флажок Top-Level Form, означающий что меню предназначено для формы со значением свойства ShowWindow равным 2.

После этого сохраним меню в файле d:\FormMenu.mnx и выполним его генерацию. Запустив форму ListForm, обнаружим в ней созданное меню (см. рис. 11.10).

Замечание. Приведенный вариант вызова меню приспособлен для работы с одним экземпляром формы ListForm. Другие варианты вызова меню в форме см. в тексте любого сгенерированного VFP MPR-файла меню, в котором установлен флажок Top-Level Form.