Components for Delphi and C++ Builder.

Перейти в английский форум
Перейти на EhLib.com
Текущее время: 28 мар 2024, 13:43

Часовой пояс: UTC




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Кто вызвал IndicatorTitle.DropDownmenu
СообщениеДобавлено: 04 июн 2019, 16:02 
Не в сети

Зарегистрирован: 04 июн 2019, 15:43
Сообщений: 2
Здравствуйте.
Есть на форма 2 грида. DBGridEh1 и DBGridEh2
Есть PopupMenu1:TPopupMenu c одним MenuItem1:TMenuItem

Если задать
DBGridEh1.IndicatorTitle.DropDownMenu = PopupMenu1
DBGridEh1.IndicatorTitle.DropDownMenu = PopupMenu1
все (там 1) MenuItem перейдут(присоединятся) в меню индикатора заголовка каждого грида (DBGridEh1 и DBGridEh2 ) .
Не подскажете как в обработчике (OnClick) MenuItem1.OnClick
узнать из какого грида я выбрал это меню ?

Заранее спасибо за ответ.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Кто вызвал IndicatorTitle.DropDownmenu
СообщениеДобавлено: 05 июн 2019, 15:16 
Не в сети

Зарегистрирован: 04 июн 2019, 15:43
Сообщений: 2
Пока помогло только если поправить:

unit DBGridEh;
...
procedure TDBGridEhCenter.DefaultBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var PopupMenu: TPopupMenu);
...
for I := 0 to Grid.IndicatorTitle.DropdownMenu.Items.Count - 1 do
begin
// mi := TMenuItem.Create(PopupMenu); // в оригинале
mi := TDBGridEhIndicatorTitleMenuItemEh.Create(PopupMenu); // Добавлено
(mi as TDBGridEhIndicatorTitleMenuItemEh).Grid := Grid; // Добавлено
...



Тогда в OnClick

procedure TfrmMain.miClick(Sender: TObject);
var
Gr:TDBGridEh;
begin
if (Sender is TDBGridEhIndicatorTitleMenuItemEh) then
begin
Gr := ((Sender as TDBGridEhIndicatorTitleMenuItemEh).Grid as TDBGridEh);
// Ok
end;
end;


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC


Кто сейчас на форуме

Сейчас этот форум просматривают: Google [Bot] и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB