Модальный диалог

как вызвать ?

[Yuri Safronov]

Это где-то на форуме уже было.
Только если я не ошибаюсь, при использовании этого способа, есть какой-то побочный эффект, он проявляется когда вызываешь из модальной формы другое модальное.

PHP код:

public void run()
{
    super();

    this.setFormModal(this.hWnd(), true);
}

//---------------------------------------------------------------------

public void close()
{
    super();

    this.setFormModal(this.hWnd(), false);
}

//---------------------------------------------------------------------

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));
} 


[mazzy]

Вай, кошмар какой!
Юрий, а проще разве никак нельзя?

На самом деле я не знаю. Но точно надо обращаться к WinAPI?

[Wamr]

Проще можно только стандартный MessageBox через статические методы класса Box.
Box:: okCancel()

[Yuri Safronov]

2mazzy
Описан метод с помощью которого я в Аксапате делаю модальной любую форму.
Другого метода я не знаю. И думаю что это правильно, так как соответствует концепции MDI. Иногда мне приходится применять этот метод. Но в принципе если конечный пользователь довольно продвинут, то можно вообще избежать модальных форм.

2Wamr
Я про это знаю, но мне было не понятно, что под словосочетанием "Модальный диалог" подразумевает ahtoh. И поэтому я написал универсальный способ.

[mazzy]

Yuri Safronov, понял. Спасибо

Wamr, Box наследует от DialogBox, который в свою очередь вызывает WinAPI.

Жалко, что стандартными средствами модального диалога сделать нельзя. Правда мне никогда он еще не нужен был. Но на всякий случай, все равно жалко

[Wamr]

2mazzy
практически любое действие в Windows приводит в конечном итгое к вызову WinAPI

[mazzy]

Wamr, так то так. Но где то вызовом АПИ занимается ядро, а где то ручками приходится писать... Ладно бог с ним.

Yuri Safronov, ahtoh,
наверняка вы рассамтривали возможность просто взвести галочку Always on Top.
Это не совсем модальность, но для пользователя особой разницы не ощущается. Почему не стали рассматривать возможность использования этой галочки вместо того, чтобы городить код?

[Yuri Safronov]

2mazzy
Это не модальность

[Wamr]

2mazzy
Такая "модальность" легко приводит к случайным глюкам
например таким http://www.axforum.info/forums/showt...=6437#post6437

[garu]

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

[Wamr]

2garu
Это было опубликовано 18-09-2002
http://www.axforum.info/forums/showt...=4128#post4128

[garu]

А вот так еще можно ограничить модальность, т.е окно будет модальное только по отношению к окну которое его вызвало

public static void setFormModal_toPrevHWND(int thisHWND, int prevHWND, boolean bModal)
{
DLL winApiDLL;
DLLFunction EnabledWindow;
DLLFunction getNext;

void local_enableWHND(int lhWnd)
{

while (lhWnd)
{
enabledWindow.call(prevHWND, (! bModal));

lhWnd = getNext.call(lhWnd, 2);
}
}
;

winApiDLL = new DLL('user32');
getNext = new DLLFunction(winApiDLL, "GetWindow");
EnabledWindow = new DLLFunction(winApiDLL, "EnableWindow");

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

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

local_enableWHND(thisHWND);

}

[mazzy]

Цитата:

Изначально опубликовано Wamr
2mazzy
Такая "модальность" легко приводит к случайным глюкам
например таким http://www.axforum.info/forums/showt...=6437#post6437

Понял.
Но я бы все же пользователей учить стал.
Иначе всю Аксапту переписывать надо.

Ок. Понял. Пошел за попкорном.
Буду дальше смотреть на интересную дискуссию.

[Buba]

Функция "GetWindow" находится в "user32"
например

PHP код:

_winApiDLL              = new DLL('user32'); 


PHP код:

_getNext                = new DLLFunction(_winApiDLL, "GetWindow"); 


Функция "shellExecute" -- в "SHELL32"

А где находится функция "CreateProcess" ?

[Buba]

А также функция "WaitForSingleObject" ?

[Yuri Safronov]

PHP код:

static void Job1(Args _args)
{
    DLL winApiDLL;
    DLLFunction createprocess;
    DLLFunction waitforSO;
    ;

    winApiDLL = new DLL('kernel32');
    createprocess = new DLLFunction(winApiDLL, "CreateProcessW");
    waitforSO = new DLLFunction(winApiDLL, "WaitForSingleObject");
} 


Обе функции в kernel32.dll
Просто функции CreateProcess нет, а есть

CreateProcessA
CreateProcessW

Про различия между A и W можно прочитать здесь:
http://www.axforum.info/forums/showt...7471#post17471

А вот функция WaitForSingleObject есть, без всяких там A и W. В ней они просто не нужны.

[Wamr]

http://msdn.microsoft.com/

[EVGL]

Маленький комментарий ко второму варианту модального окна согласно Wamr (с помощью MessageBox). Передо мной встала задача создать такое модальное окно, при котором бы в Axapty не посылалось бы вообще никаких сообщений. Стандарно так ведет себя только Box::stop(), но в этом варианте диалога только одна кнопка. Вот код, который эмулирует аксартовский DialogBox, причем создает диалоги, полностью блокирующие окно Аксапты:

PHP код:

//int MessageBox(
//  HWND hWnd,          // handle to owner window
//  LPCTSTR lpText,     // text in message box
//  LPCTSTR lpCaption,  // message box title
//  UINT uType,         // message box style
DialogButton systemMessageBox(
                str             _text,
                DialogBoxType   _dialogBoxType,
                str             _title = "@SYS11132",
                DialogButton    _defaultButton = DialogButton::Ok,
                boolean         _taskModal = false,
                int             _hWnd = activeFormRun ? activeFormRun.hWnd() : 0)
{
    DLL             user32DLL   = new DLL("USER32");
    DLLFunction     messageBox  = new DLLFunction(user32DLL, "MessageBoxA");
    int             uType = 0, ret, xhWnd = _hWnd;
    DialogButton    retButton;

    messageBox.returns(ExtTypes:: DWord);
    messageBox.arg(ExtTypes:: DWORD,
                   ExtTypes::String,
                   ExtTypes::String,
                   ExtTypes:: DWORD);

    switch(_dialogBoxType)
    {
        case DialogBoxType::InfoBox :
            uType = #MB_OK | #MB_ICONINFORMATION;
            break;
        case DialogBoxType::OkCancelBox :
            uType = #MB_OKCANCEL | #MB_ICONWARNING;
            uType = _defaultButton == DialogButton::Ok ? uType | #MB_DEFBUTTON1 :
                        uType | #MB_DEFBUTTON2;
            break;
        case DialogBoxType::StopBox :
            uType = #MB_OK | #MB_ICONSTOP;
            break;
        case DialogBoxType::WarnBox :
            uType = #MB_OK | #MB_ICONWARNING;
            break;
        case DialogBoxType::YesNoBox :
            uType = #MB_YESNO | #MB_ICONWARNING;
            uType = _defaultButton == DialogButton::Yes ? uType | #MB_DEFBUTTON1 :
                        uType | #MB_DEFBUTTON2;
            break;
        case DialogBoxType::YesNoCancelBox :
            uType = #MB_YESNOCANCEL | #MB_ICONWARNING;
            uType = _defaultButton == DialogButton::Yes ? uType | #MB_DEFBUTTON1 :
                        (_defaultButton == DialogButton::No ? uType | #MB_DEFBUTTON2 :
                            uType | #MB_DEFBUTTON3);
            break;

        case DialogBoxType::NoToAllBox,
             DialogBoxType::YesToAllBox,
             DialogBoxType::YesToAllNoToAllBox :
        default :
            uType = #MB_YESNO | #MB_ICONINFORMATION;
    }
    if (_taskModal)
    {
        uType = uType | #MB_TASKMODAL;
        xhWnd = 0;
    }

    /* --> */ ret = messageBox.call(xhWnd, _text, _title, uType);

    switch(ret)
    {
        case #IDOK, #IDRETRY, #IDIGNORE  :
            retButton = DialogButton::Ok;
            break;
        case #IDCANCEL, #IDABORT, #IDCLOSE :
            retButton = DialogButton::Cancel;
            break;
        case #IDYES, #IDHELP :
            retButton = DialogButton::Yes;
            break;
        case #IDNO :
        default :
            retButton = DialogButton::No;
            break;
    }
    return retButton;
} 


[Андрей К.]

А я сделал проще...У меня есть форма с кнопкой, по которой вызывается диалог. Стало необходимо сделать этот диалог "модальным". Сделал следующим хитрым способом:
1) в методо dialog добавил dialog.windowType(FormWindowType::PopUp), теперь диалог всегда поверх остальных окон.
2) по клику кнопки, вызывающей диалог отрабатывает метод, выключающий enabled всех контролов формы.

void enabled(boolean _enabled)
{
    int ctrlCount, i;
    ctrlCount = element.design().controlCount();
    for (i = 1; i <= ctrlCount; i++)
    {
            element.design().controlNum(i).enabled(_enabled);
    }
}

очень просто ... для моего случая неплохо подошло.