Дополнительные кнопки списка

[Pozharskiy1991]

Расширение добавляет пункт в контекстное меню списка для программного нажатия кнопок на форме. Позволяет вызывать любые кнопки (TdxButton) текущей формы через удобное подменю.

Возможности

- Гибкая настройка - список кнопок задаётся в настройках расширения
- Поддержка имен и подписей - можно указывать как имя компонента (btnSave), так и текст на кнопке (Сохранить)
- Автоматическая фильтрация - в меню отображаются только кнопки, существующие на текущей форме
- Управление активностью - можно временно отключать кнопки без удаления из списка
- Подсказки - при наведении на пункт меню отображается подсказка (если задана)
- Тихая работа - расширение не показывает лишних сообщений при запуске

Как это работает

1. Вы настраиваете список кнопок в расширении (один раз)
2. В контекстном меню любого грида появляется пункт "Нажать кнопку"
3. При наведении открывается подменю со списком доступных кнопок текущей формы
4. Выбираете нужную кнопку - она программно нажимается

Настройка

1. Активируйте действие "Добавить пункт 'Нажать кнопку' в меню"
2. В поле "Текст пункта меню" укажите желаемое название (по умолчанию "Нажать кнопку")
3. В таблице "Список кнопок для нажатия" добавьте нужные кнопки:
- Активна - чекбокс, показывает/скрывает кнопку в меню
- Имя или подпись кнопки - имя компонента (btnSave) или текст на кнопке (Сохранить)
- Подсказка - необязательный текст, отображается при наведении
4. При необходимости включите "Показывать сообщения об ошибках" для отладки

Примечания

- Расширение работает только с кнопками типа TdxButton
- Для каждой формы формируется свой набор кнопок (только существующие)

Известные ограничения

- Не поддерживаются кнопки на панели инструментов (TToolButton)
- Поиск кнопки происходит по точному совпадению имени или подписи

[cordek]

А почему вы назвали "кнопки списка"?

[admin]

Это то, чего не хватает в Замена кнопок в таблицах и запросах.

Заметил, что здесь не вызывается старый обработчик, хотя в коде он сохраняется:

Код: Выделить всё

// Обработчик создания формы
procedure MainWindow_OnCreateForm(Sender: TObject; Form: TdxForm);
begin
  if (Form <> nil) and (Form.Grid <> nil) then
    AddMenuItemToGrid(Form.Grid);
end;   


Надо бы поправить, чтобы не нарушалась работа других расширений.

[Pozharskiy1991]

А почему вы назвали "кнопки списка"?

Хотелось быстрее залить и время было позднее

[Pozharskiy1991]

Добавил обработчик.

[Pozharskiy1991]

Исправлен поиск кнопок с динамической подписью (например, "Файлы (5)")