Модальные формы

[Garic]

Каким образом в Аксапте можно реализовать модальное окно?
В принципе достаточно псевдомодальности - например при редактировании кода - окно поиск. Оно остаётся над родительской формой при активации формы родителя.
Вот только к сожалению не посмотришь на код вызова формы поиска .

[Wamr]

В принципе, все формы открываемые из редактора кода псевдомодальны, в том числе и вызванные из класса EditorScript.
Но это ничего не дает
Наиболее близкое решение сделать вызванное окно AlwaysOnTop, но тогда в нем лучше не делать llokup-ов

[xroad]

Не знаю, как насчёт модальной, а псевдомодальную (т.е. форму, при открытии
которой остальные окна становятся недоступными) можно попробывать сделать.
Ниже приведён код ф-ии, которая делает окно с заданным дискриптором
псевдомодальным (или нет). Пример использования: в методе run нужной нам
формы пишем

PHP код:

public void run()
{
     ...
     setFormModal(this.hWnd(), true);
},

а в методе Close соответственно   setFormModal(this.hWnd(), false). 

static void setFormModal(int _thisHWND, boolean _bModal)
{
    DLL             _winApiDLL;
    DLLFunction     _EnabledWindow;
    DLLFunction     _getTop;
    DLLFunction     _getNext;
    DLLFunction     _getParent;

    void local_enableWHND(int _lHWND)
    {
        int lnextWnd;

        lnextWnd = _getTop.call(_getParent.call(_lHWND));

        while (lnextWnd)
        {
           if (lnextWnd != _lHWND)
                _enabledWindow.call(lnextWnd, (!_bModal));

            lnextWnd =  _getNext.call(lnextWnd, 2);
        }
    }
    ;
    _winApiDLL              = new DLL('user32');
    _getNext                = new DLLFunction(_winApiDLL, "GetWindow");
    _EnabledWindow          = new DLLFunction(_winApiDLL, "EnableWindow");
    _getTop                 = new DLLFunction(_winApiDLL, "GetTopWindow");
    _getParent              = new DLLFunction(_winApiDLL, "GetParent");

    _getParent.returns(ExtTypes::DWORD);
    _getParent.arg(ExtTypes::DWORD);

    _EnabledWindow.returns(ExtTypes::DWORD);
    _EnabledWindow.arg(ExtTypes::DWORD, ExtTypes::DWORD);

    _getTop.returns(ExtTypes::DWORD);
    _getTop.arg(ExtTypes::DWORD);

    _getNext.returns(ExtTypes::DWORD);
    _getNext.arg(ExtTypes::DWORD, ExtTypes::DWORD);

    local_enableWHND(_thisHWND);
    
    // если надо заблокировать панель инструментов, то раскоментировать
    //local_enableWHND(_getParent.call(_thisHWND));
} 


[Garic]

Спасибо.

Я решил проблему так:

PHP код:

    form = new Form();
    form.addDesign('Design');

    form.design().WindowType(FormWindowType::PopUp);
// Становится псевдомодальным

    args = new Args();
    args.object(form);
    formRun = classFactory.formRunClass(args);
    formRun.init();

    formRun.design() .......
    formRun.run();
    formRun.wait(); 


P.S. Если делать formRun.design().WindowType(FormWindowType::PopUp) , то это не приведёт ни к какому результату

[Wamr]

to Garic
Что-то я не понял твою идею... окошко создалось, но спокойно можно перейти в другое..

[Garic]

Мне нужно было сделать динамически окошко такое же как "Поиск" в Аксапте.
Т.е. чтобы можно было продолжать работать с родительской формой, но окошко "Поиск" оставалось над формой.

[Pavlo AKA Panok]

Не подскажете как заблокировать и меню? Или в лучшем случае заблокировать определенные пункты меню (хочу оставить пункт 'Правка'....

А то открываем через меню Главное Меню, там открываем любую форму и всю модальность как рукой...

[kashperuk]

Кстати. Только что прочитал на Microsoft Community:

В DAX 4.0 для того, чтобы сделать вызываемую форму модальной, достаточно указания параметра true при вызове метода

formRun.wait(true);

Так что в правильном направлении все-таки движутся, ИМХО