VPF::DBGridEh и doubleclick - Форум программистов

MacTep

Дата 5.12.2006, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

У меня стоит обработчик на TableDblClick. при этом на экран, допустим, выводится сообщение! И есть обработчик нажатия на заголовок колонки - при этом производится сортировка полей БД. smile

Но если на заголовок колонки нажать два раза - получится вывод сообщения, а мне не нужна такая реакция. Как этого избежать?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

MacTep

Дата 6.12.2006, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Как вообще не допустить реагировать таблицу на то, что двойной щелчок именно по заголовку???? Как бы, указать, что реагировать нужно только на двойной щелчок в области, где данные, а не где заголовок...

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Akella

Дата 6.12.2006, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

отлавливай координаты

Добавлено @ 12:39
я так определяю координаты для определения, где нажали правой кнопкой мыши, т.к. у меня 2 контекстных меню

Код


procedure TfmApartSearch.dbgApart3ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
 if TDBGridEh(sender).MouseCoord(MousePos.X, MousePos.Y).Y <> 0
 then
     TDBGridEh(sender).PopupMenu:= pmCustomSelect
   else
     TDBGridEh(sender).PopupMenu:= pmColumns2;
end;

MacTep

Дата 7.12.2006, 00:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4

Интересно, а как же я узнаю, что под такими-то координатами у меня заголовок таблицы, а вот под такими-то у меня сетка таблицы с данными? smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Akella

Дата 7.12.2006, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

а пример кода...

Код


 if TDBGridEh(sender).MouseCoord(MousePos.X, MousePos.Y).Y <> 0
 then
     TDBGridEh(sender).PopupMenu:= pmCustomSelect // щелкнули по сетке
   else
     TDBGridEh(sender).PopupMenu:= pmColumns2; //// щелкнули по заголовку

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »