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

Можно ли в Грид залочить DblClick

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


Вступление в Клуб: 23.09.2010
СообщениеПт Фев 19, 2016 06:54   Можно ли в Грид залочить DblClick Ответить с цитатой
Полезность: Нет оценки
Здравствуйте!

Вопрос:
Можно ли в Грид залочить DblClick т.е. чтобы не создавалось событие OnDblClick, при этом оставить OnClick ?
vtar
Эксперт
Неподтвержденный


Вступление в Клуб: 20.03.2009
СообщениеПт Фев 19, 2016 13:41    Ответить с цитатой
Полезность: Нет оценки
OnClick вроде только для кнопок генерится

на гриде RowColChange, BeforeEdit и т.п. можно ловить

А чо хотел то ?
Эмиралька
Профи
Неподтвержденный


Вступление в Клуб: 09.11.2015
СообщениеСр Фев 24, 2016 06:47   Re: Можно ли в Грид залочить DblClick Ответить с цитатой
Полезность: Нет оценки
Alkov пишет:
Здравствуйте!

Вопрос:
Можно ли в Грид залочить DblClick т.е. чтобы не создавалось событие OnDblClick, при этом оставить OnClick ?


Вернуть False не пробовали?
Alkov
Профи
Неподтвержденный


Вступление в Клуб: 23.09.2010
СообщениеСр Фев 24, 2016 08:10   Re: Можно ли в Грид залочить DblClick Ответить с цитатой
Полезность: Нет оценки
Эмиралька пишет:
Alkov пишет:
Здравствуйте!

Вопрос:
Можно ли в Грид залочить DblClick т.е. чтобы не создавалось событие OnDblClick, при этом оставить OnClick ?


Вернуть False не пробовали?


Пробовал, бесполезно т.к. последовательность отработки к-с с расширением :

Main(дистриб)->Main(расшир)-> BeforEdit(расшир)->BeforEdit(дистриб)
таким образом дисриб если есть в нём обработка события выполнится последним и перекроет расширениеSad
OnClick ещё можно перехватить, а OnDblClick получается только запретить...

Код дистриб
Код:

Public Function Main(LastControl)
   Main = true
End Function

Private Sub Grid1_BeforeEdit(Row, Col, Cancel)
   if Col = 7 then
      Grid1.ViewShortName(7) = "VW_CRIT_3305134"
   end if
End sub


код расширения
Код:

Public Function Main(LastControl)
   Main = true
End Function

Private Sub Grid1_BeforeEdit(Row, Col, Cancel)
   if Col = 7 then
      Grid1.ViewShortName(7) = "моё представление"
   end if
End sub
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

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