Dialogbox - "крестик"

Тема в разделе "Lotus - Программирование", создана пользователем Mitya, 19 июл 2012.

  1. Mitya

    Mitya Well-Known Member

    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    Гуру, подскажите как запретить закрывать DialogBox "крестиком"?
     
  2. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    :) во блин.. чего только не выдумают
    Ну чтоб не заморачиваться возможными API.... наверное можно отказаться от стандартных кнопок диалога OK, Cancel и т.д.
    В форму поставить свои кнопки.
    И при нажатии кнопки возводить какой-то флаг (глоб. переменную)... типа byButton = true
    И в событии Queryclose проверять... если byButton = false - запрещать закрытие
    Ну как-то так...
     
  3. turumbay

    Регистрация:
    13 мар 2009
    Сообщения:
    625
    Симпатии:
    2
    в queryClose поставить continue = false, ну и условие прикрутить подходящее
    А Вам оно зачем? Проводите эксперимент по влиянию нестандартного поведения стандартных компонентов на психику пользователя?
     
  4. Мыш

    Мыш Lotus team
    Lotus team

    Регистрация:
    12 фев 2008
    Сообщения:
    1.020
    Симпатии:
    8
    А нельзя анализировать результат, возвращаемый DialogBox, и тупо показывать его в цикле - до тех пор, пока пользователь не нажмет Ок? :)
     
  5. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Можно конечно...кажется так... все в том же Queryclose
    Код (LotusScript):
    Source.DialogBoxCanceled
    Только же наши партизаны/вымогатели не колятся для чего это все.... блюдут :)
    А то вдруг в диалоге нужно разрешить нажимать Cancel, но нельзя закрывать крестиком :)
     
  6. Mitya

    Mitya Well-Known Member

    Регистрация:
    13 июн 2012
    Сообщения:
    111
    Симпатии:
    0
    да, балуются пользователи! =)

    хм... условие типа:

    Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    if поле ="" then
    msgbox "введите хоть что-нибудь"
    continue = false
    exit Sub
    End if
    End Sub

    при многократном неведении в поле, пишет NotesUIDocument object is loger valid
    как побороть?

    Добавлено:
    не, в диалоге кнопки не заводские... Cancel тоже нет!

    Оо! можно так:
    If Source.DialogBoxCanceled Then... =) завтра попробую
     
Загрузка...
Похожие Темы - Dialogbox крестик
  1. RenatAhmetshin
    Ответов:
    14
    Просмотров:
    680
  2. valmont
    Ответов:
    5
    Просмотров:
    892
  3. NickProstoNick
    Ответов:
    1
    Просмотров:
    882
  4. Cleric-Lviv
    Ответов:
    7
    Просмотров:
    2.084
  5. Kay
    Ответов:
    3
    Просмотров:
    1.786

Поделиться этой страницей