Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.12.12;
Скачать: CL | DM;

Вниз

Общий TPopupMenu для всех DBGridEh в приложении   Найти похожие ветки 

 
Max Zyuzin ©   (2010-09-20 12:40) [0]

Приветствую.
Помогите пожалуйста разобраться. Хочу сделать общий PopupMenu для всех компонент DBGridEh в программе.
Разместил его на главной форме
Взял пример из EhLib обработчик события по нажатие на меню (выбрать все)
if (ActiveControl is TDBGridEh) then
 with TDBGridEh(ActiveControl) do
   if CheckSelectAllAction and (geaSelectAllEh in EditActions) then
     Selection.SelectAll;

Так вот ActiveControl в главной форме - nil. как мне обратится именно к DBGridEh который вызывал срабатывание события?


 
sniknik ©   (2010-09-20 12:47) [1]

> Разместил его на главной форме
размести в базовой форме, и наследуй все остальные от нее.


 
Ega23 ©   (2010-09-20 13:03) [2]


> Хочу сделать общий PopupMenu для всех компонент DBGridEh
> в программе.


Я бы в DataModule разместил, а всем гридам в дизайн-тайм прописывал.
Ну и PopupComponent использовать.


 
Max Zyuzin ©   (2010-09-20 14:18) [3]

>Ega23 ©   (20.09.10 13:03) [2]
У меня так примерно и сделано, только в попап добавлен на главную форму она MDI по этому есть всегда.
Переделал вот так примерно
 if (GridPopupMenu.PopupComponent is TDBGridEh) then
   with TDBGridEh(GridPopupMenu.PopupComponent) do
     if CheckSelectAllAction and (geaSelectAllEh in EditActions) then
       Selection.SelectAll;

Заработало. Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2010.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
8-1208000814
Дмитрий Белькевич
2008-04-12 15:46
2010.12.12
Сглаживание при вызове метода blt поверхности DirectX в Висте


15-1282803046
xayam
2010-08-26 10:10
2010.12.12
Модераторам/администраторам


15-1283507963
Медвежонок Пятачок
2010-09-03 13:59
2010.12.12
про кита


2-1284466539
faiwer
2010-09-14 16:15
2010.12.12
Горячие клавиши


2-1284781399
mfender
2010-09-18 07:43
2010.12.12
Ссылки-невозвращенцы из BPL