%IDCANCEL не отлавливается!

[jangle]

В аттача пример поиска и замены строк, с помощью стандартных диалогов FIND, REPLACE, GOTO to Line.
Перенес этот код в свое приложение, EMD32 контрол тоже. Все работает, за исключением сокрытия диалогов при нажатии клавиши ESC. Причем в диалоге GOTO to Line нажатие ESC отрабатывается, а в остальных нет!

Код: Выделить всё

    Case %WM_COMMAND

        Select Case LoWrd(wParam)
     
              Dialog Set Text g_MainDialog, Str$(wParam)
             
                Case %IDCANCEL 'default Esc key  <---- Событие не ловится
                 
                    If HiWrd(wParam) = %BN_CLICKED Then
                           Call SendMessage( hDlg, %WM_CLOSE , 0, 0)
                    End If

Кароче в чем глюк, не понимаю!

[volo]

В аттача пример поиска и замены строк, с помощью стандартных диалогов FIND, REPLACE, GOTO to Line.
Перенес этот код в свое приложение, EMD32 контрол тоже. Все работает, за исключением сокрытия диалогов при нажатии клавиши ESC. Причем в диалоге GOTO to Line нажатие ESC отрабатывается, а в остальных нет!

Код: Выделить всё

    Case %WM_COMMAND

        Select Case LoWrd(wParam)
     
              Dialog Set Text g_MainDialog, Str$(wParam)
             
                Case %IDCANCEL 'default Esc key  <---- Событие не ловится
                 
                    If HiWrd(wParam) = %BN_CLICKED Then
                           Call SendMessage( hDlg, %WM_CLOSE , 0, 0)
                    End If

Кароче в чем глюк, не понимаю!

Ну не знаю, у меня во 'всех диалогах' ESC закрывает 'под-диалог' нормально.

FIND NEXT - нормально.
GoTo - нормально.
Find - нормально.
Replace - нормально.
Главный диалог - нормально.

[jangle]

Ну не знаю, у меня во 'всех диалогах' ESC закрывает 'под-диалог' нормально.

FIND NEXT - нормально.
GoTo - нормально.
Find - нормально.
Replace - нормально.
Главный диалог - нормально.

Этот пример у меня тоже работает. Дело в другом, я перенес этот код в свое приложение. Один в один. Ничего не меняя. Он нормально работает, за исключением того, что диалоги FIND и REPLACE не закрываются клавишей ESC, а GOTO to Line закрывается!
Из-за чего такой глюк не понимаю...

[volo]

Ну не знаю, у меня во 'всех диалогах' ESC закрывает 'под-диалог' нормально.

FIND NEXT - нормально.
GoTo - нормально.
Find - нормально.
Replace - нормально.
Главный диалог - нормально.

Этот пример у меня тоже работает. Дело в другом, я перенес этот код в свое приложение. Один в один. Ничего не меняя. Он нормально работает, за исключением того, что диалоги FIND и REPLACE не закрываются клавишей ESC, а GOTO to Line закрывается!
Из-за чего такой глюк не понимаю...

Если "навскидку", то скорее всего один индентификатор - перекрыл другой индентификтор.

Т.е. например %IDCANSEL_A = 400, и в программе было %IDCANSEL_B = 400. Управление перехватывается не %IDCANSEL_A а %IDCANSEL_B, которое первым было "обозначено"

[jangle]

Если "навскидку", то скорее всего один индентификатор - перекрыл другой индентификтор.

Вроде не перекрывается, если не сложно можешь код взглянуть?
Пример в аттаче, надо скомпилировать IDE.bas

[volo]

Если "навскидку", то скорее всего один индентификатор - перекрыл другой индентификтор.

Вроде не перекрывается, если не сложно можешь код взглянуть?
Пример в аттаче, надо скомпилировать IDE.bas

взглянув побыстрому:

вставь код и посмотри (SearchFindDlgProc) кнопка -искать-

нажатие на ESC - нулевая реакция, это значит управление обработкой
перенаправлено на "левую" процедуру, скорее всего на процедуру обработки GoTo. Либо где-то локальная переменная совпадает с глобальной

Код: Выделить всё

.......
CASE %WM_COMMAND
    setwindowtext hdlg, STR$(wParam) & STR$(%IDCANCEL) & " " & TIME$
    ........



[volo]

Если "навскидку", то скорее всего один индентификатор - перекрыл другой индентификтор.

Вроде не перекрывается, если не сложно можешь код взглянуть?
Пример в аттаче, надо скомпилировать IDE.bas

Заметь, ты дал для Goto модальный диалог
CALL Dialogbox( g_hInstance, "MYGOTOLINE", ghEdit, CODEPTR(SearchFindDlgProc))


А для всего остального modeless:
' ghFindDlg = CreateDialog(g_hInstance,"MYFIND",ghEdit,CodePtr(SearchFindDlgProc) )

отличие улавливаешь ... попробуй поменяй

[jangle]

вставь код и посмотри (SearchFindDlgProc) кнопка -искать-

нажатие на ESC - нулевая реакция, это значит управление обработкой
перенаправлено на "левую" процедуру, скорее всего на процедуру обработки GoTo. Либо где-то локальная переменная совпадает с глобальной

Да точно, ESC туда не попадает. Наверное главное окно его перехватывает?

[jangle]

Заметь, ты дал для Goto модальный диалог
CALL Dialogbox( g_hInstance, "MYGOTOLINE", ghEdit, CODEPTR(SearchFindDlgProc))


А для всего остального modeless:
' ghFindDlg = CreateDialog(g_hInstance,"MYFIND",ghEdit,CodePtr(SearchFindDlgProc) )

отличие улавливаешь ... попробуй поменяй

Cпасибо, я этого не заметил. Так нужно использовать функцию DialogBox ?

[volo]

Заметь, ты дал для Goto модальный диалог
CALL Dialogbox( g_hInstance, "MYGOTOLINE", ghEdit, CODEPTR(SearchFindDlgProc))


А для всего остального modeless:
' ghFindDlg = CreateDialog(g_hInstance,"MYFIND",ghEdit,CodePtr(SearchFindDlgProc) )

отличие улавливаешь ... попробуй поменяй

Cпасибо, я этого не заметил. Так нужно использовать функцию DialogBox ?

Что использовать нужно, зависит от постановки задачи, я честно говоря не вникал глубоко в задачу. Modeless имеет несколько отличную обработку потока управления.

В принципе если DialogBox удовлетворяет задаче, то можно использовать и это.


Что говорит классика нам:
для модал -

Код: Выделить всё

BOOL CALLBACK DeleteItemProc(hwndDlg, message, wParam, lParam)
HWND hwndDlg;
UINT message;
WPARAM wParam;
LPARAM lParam;
{
    switch (message) {
        case WM_COMMAND:
            switch (LOWORD(wParam)) {
                case IDOK:
                    if (!GetDlgItemText(hwndDlg, ID_ITEMNAME,
                             szItemName, 80))
                         *szItemName=0;

                    // Fall through.


                case IDCANCEL:
                    EndDialog(hwndDlg, wParam);
                    return TRUE;
            }
    }
    return FALSE;
}



Для моделесс:

Код: Выделить всё


WND hwndGoto = NULL;  // window handle of dialog box 

    .
    .
    .

    case WM_COMMAND:
        switch (LOWORD(wParam)) {
            case IDM_GOTO:
                if (!IsWindow(hwndGoto)) {
                    hwndGoto = CreateDialog(hinst,
                         MAKEINTRESOURCE(DLG_GOTO),
                         hwnd, (DLGPROC) GoToProc);
                    ShowWindow(hwndGoto, SW_SHOW);
                }
                break;

        }
        return 0L;


In the preceding statements, CreateDialog is called only if hwndGoto does not contain a valid window handle. This ensures that the application does not display two dialog boxes at the same time. To support this method of checking, the dialog procedure must set hwndGoto to NULL when it destroys the dialog box.
The message loop for an application consists of the following statements:

while (GetMessage(&msg, NULL, NULL, NULL)) { 
    if (!IsWindow(hwndGoto) || !IsDialogMessage(hwndGoto, &msg)) {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
}


The loop checks the validity of the window handle for the dialog box and only calls the IsDialogMessage function if the handle is valid. IsDialogMessage only processes the message if it belongs to the dialog box. Otherwise, it returns FALSE and the loop dispatches the message to the appropriate window.
The following statements define the dialog box procedure:

int iLine;             // receives line number 
BOOL fRelative;        // receives check box status

    .
    .
    .

BOOL CALLBACK GoToProc(hwndDlg, message, wParam, lParam)
HWND hwndDlg;
UINT message;
WPARAM wParam;
LPARAM lParam;
{
    BOOL fError;

    switch (message) {
        case WM_INITDIALOG:
            CheckDlgButton(hwndDlg, ID_ABSREL, fRelative);
            return TRUE;

        case WM_COMMAND:
            switch (LOWORD(wParam)) {

                case IDOK:
                    fRelative = IsDlgButtonChecked(hwndDlg,
                        ID_ABSREL);
                    iLine = GetDlgItemInt(hwndDlg, ID_LINE,
                        &fError, fRelative);
                    if (fError) {
                        MessageBox(hwndDlg, SZINVALIDNUMBER,
                            SZGOTOERR, MB_OK);
                        SendDlgItemMessage(hwndDlg, ID_LINE,
                            EM_SETSEL, 0, -1L);

                    } else

                        .
                        . // Notify the owner window to carry
                        . // out the command.
                        .

                    return TRUE;

                case IDCANCEL:
                    DestroyWindow(hwndDlg);
                    hwndGoto = NULL;
                    return TRUE;
            }
    }
    return FALSE;
}




[jangle]

Так у меня цикл обработки работает, проблема в том, что нажатия ESC он "не видит". Почему это происходит - мне непонятно...

[volo]

Так у меня цикл обработки работает, проблема в том, что нажатия ESC он "не видит". Почему это происходит - мне непонятно...

Посмотри еще у себя в RC файле, как ты оформил эти диалоги.
Я имею ввиду стили диалогов

[jangle]

Стили у всех одинаковые

STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU

[volo]

Стили у всех одинаковые

STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU

Ну и ...?

Попробуй замени или убери DS_MODALFRAME

[jangle]

Ну и ...?

Попробуй замени или убери DS_MODALFRAME

Убрал, и заменял DS_MODALFRAME - результат тот же..

[volo]

Ну и ...?

Попробуй замени или убери DS_MODALFRAME

Убрал, и заменял DS_MODALFRAME - результат тот же..

управление от ESC просто улетает куда-то в другое место,
не приходя даже в процедуру обработки.

ищи проблему либо:

Код: Выделить всё

the message loop for an application consists of the following statements:
while (GetMessage(&msg, NULL, NULL, NULL)) { 
    if (!IsWindow(hwndGoto) || !IsDialogMessage(hwndGoto, &msg)) {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
}



либо в настройках окна диалога в т.ч. родительского, я имею ввиду
проблема взаимодействия DDT callback function и WIN callback

В первом примере, где все работает, кажется DDT callback функции нет.

CALLBACK FUNCTION DlgMainProc

[Dark Machine]

Попробуй следующее:
1. Добавь WS_DLGFRAME при создании диалога
2. Нужно сделать реордер элементов управления таким образом, чтобы кнока CANCEL была последней в списке. т.е. идентификатор IDCANCEL должен быть максимальным.

[jangle]

Что-то не помогает. Ладно попробую переделать эти диалоги на DDT

[Dark Machine]

Маленькая подсказака. Ты можешь сделать импорт RC файлов прямо в PowerForms.

[jangle]

Маленькая подсказака. Ты можешь сделать импорт RC файлов прямо в PowerForms.

А вот за это спасибо! Не знал про такую фичу...

[volo]

Маленькая подсказака. Ты можешь сделать импорт RC файлов прямо в PowerForms.

А вот за это спасибо! Не знал про такую фичу...

Попробуй еще замени для тестирования - "DDT callback" на "обычную"
типа:

OS_OldProc = SetWindowLong(hDlg, %GWL_WNDPROC, CODEPTR(subclass))