CftClub.ru
Клуб специалистов ЦФТ-Банк

Запретить сочетания клавиша SHIFT+ENTER

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle
Предыдущая тема :: Следующая тема  
Автор Сообщение
Sant
Участник со стажем


Вступление в Клуб: 19.08.2013
СообщениеПн Июл 14, 2014 12:01   Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Добрый день, уважаемые форумчане!
Есть операция, кнопка "ОК" деактивированно (Enabled=False), чтобы пользователь не мог нажат, но когда пользователь нажимает на клавиши "SHIFT+ENTER" имитируется нажатия кнопки "ОК".
Как сделать так чтобы пользователь никак не мог имитировать кнопку "ОК".
Reddom
Участник со стажем


Вступление в Клуб: 25.01.2013
СообщениеПн Июл 14, 2014 14:07   Re: Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Annex4 пишет:

9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)
где
Exit – отвечает за закрытие формы операции,
Ask – отвечает за показ диалога о сохранении изменений на форме операции.
Описание
Обработчик события может быть определён только для главной формы.
Обработчик события OnClose вызывается при закрытии формы операции по кнопкам
"Закрыть" и "Отмена".
Входные значения параметров:
Exit = True, в любом случае;
Ask = True, если на экранной форме были произведены изменения;
Ask = False, если на экранной форме не было изменений.
Выходные значения параметров:
Если Exit = False, то форма операции не будет закрыта и значение Ask не будет
учитываться;
Если Exit = True и Ask = True, то при закрытии экранной формы поднимется диалог с
вопросом: "Выйти без сохранения изменений?". В случае ответа "Да" экранная форма
закроется, иначе форма останется открытой.
Если Exit = True и Ask = False, то экранная форма будет закрыта и диалог о сохранении
изменений не поднимется.
Примечание
Обработка события OnClose возможна, начиная с 116 версии АРМа "ЦФТ – Навигатор".
Пример
Public Sub Form1_OnClose(bExit, bAsk)
bAsk = False
MsgBox "Выходные значения параметров: Exit = " & bExit & " Ask = " & bAsk
End Sub
Amper
Профи


Вступление в Клуб: 29.10.2010
СообщениеПн Июл 14, 2014 14:24   Re: Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Sant пишет:
Добрый день, уважаемые форумчане!
Есть операция, кнопка "ОК" деактивированно (Enabled=False), чтобы пользователь не мог нажат, но когда пользователь нажимает на клавиши "SHIFT+ENTER" имитируется нажатия кнопки "ОК".
Как сделать так чтобы пользователь никак не мог имитировать кнопку "ОК".

У меня вот с таким кодом Shift+Enter не работает, а у Вас срабатывает?
Код:
Public Function Main(LastControl)
   If LastControl Is Nothing Then
      Ok.Enabled = False
   End If
   Main = True
End Function
Amper
Профи


Вступление в Клуб: 29.10.2010
СообщениеПн Июл 14, 2014 14:25   Re: Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Reddom пишет:
Annex4 пишет:

9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)

Это только для Cancel (Shift + Esc).
Sant
Участник со стажем


Вступление в Клуб: 19.08.2013
СообщениеПн Июл 14, 2014 16:04   Re: Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Amper пишет:

У меня вот с таким кодом Shift+Enter не работает, а у Вас срабатывает?

У меня тоже не срабатывает, оказывается кнопка была просто невидимая из-за этого срабатывала нажатия.
Спасибо, вопрос снят.
Reddom
Участник со стажем


Вступление в Клуб: 25.01.2013
СообщениеПн Июл 14, 2014 16:32   Re: Запретить сочетания клавиша SHIFT+ENTER Ответить с цитатой
Полезность: Нет оценки
Amper пишет:
Annex4 пишет:

9.2.25 OnClose
Синтаксис
Public Sub Form1_OnClose(ByRef Exit as Boolean, ByRef Ask as Boolean)

Это только для Cancel (Shift + Esc).


Точно Smile Это чтобы обработать закрытие формы через крестик. С "ОК" я не понял проблемы Smile
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru