How to add global context menu to the application?

[Tokay]

Now I have disabled right mouse in the options. It's not exactly a good solution, best will be the own context menu added to the all editors and so on. Maybe exists some way to do it?

[x11]

Добавь код отключения системного меню только для пользователей, например, а для админов/разработчиков дай возможность в настройках переключать вкл/откл, т.е. для возможности отладки.

Или так.

Поищи на форуме по слову: preventDefault.

Вот так я у DBGrid скрываю системное меню браузера

function cellcontextmenu(sender, td, cellIndex, record, tr, rowIndex, e, eOpts)
{
    e.preventDefault();// скрыть меню браузера
}

чтобы показать свое TUniPopupMenu:

procedure TfmMain.dbgTodayCellContextClick(Column: TUniDBGridColumn; X, Y: Integer);
begin
  popupTodey.Popup(x, y, dbgToday);
end;

 

 

[Tokay]

Проблема не в показать/не показать. Показывать нужно всем и всегда. Но! Не то меню, которое в браузере, а своё. У нас сотни и тысячи компонент по формам, и проставить руками везде какое-то контекстное меню и поддерживать постоянно непросто и грозит багами. Хочется как-то глобально заменить браузерное меню на своё.

[x11]

так в том-то и дело, что все компоненты разные,  как может быть одно и то же меню для разных компонент?

[Tokay]

А что смущает? Сейчас же есть везде дефолтное, браузерное, если его оставить включенным. Вот его хочется заменить.

[x11]

Ну так меняй. Отключи системное браузерное и подключи одно единое из набора юнигуи.

А что нельзя в главном модуле кинуть меню из набора юнигуи и везде использовать его? Ведь главный модуль всегда доступен.

[Tokay]

Осталось выяснить как это сделать 😁

Кинул TUniPopupMenu на модуль и.... Как эксплореру и/или унигую сказать, что это его новое дефолтное меню?