Как динамически собрать главное меню в Delphi, используя данные из базы данных

Delphi , Компоненты и Классы , Меню

При разработке приложений на Delphi часто возникает необходимость создания динамического главного меню, которое загружает элементы из базы данных. Это может быть полезно, например, для отображения последних измененных документов или для вывода списка доступных отчетов. В данной статье мы рассмотрим, как можно реализовать такую функциональность, основываясь на имеющемся материале.

Проблема

Разработчик столкнулся с задачей создания динамического главного меню в Delphi, элементы которого формируются на основе данных, хранящихся в базе данных. В частности, необходимо собрать подменю для пункта "Reports" (Отчеты) перед его отображением. Пункт "Reports" является одним из основных элементов главного меню, который должен содержать ряд подпунктов, соответствующих доступным отчетам.

Исследование класса TMainMenu

Класс TMainMenu в Delphi предназначен для создания главного меню, но для динамического обновления его содержимого он не предусматривает простых решений. Проанализировав код классов TMainMenu, TMenu, и TMenuItem, разработчик не нашел простого способа решения задачи.

Альтернативные подходы

Один из альтернативных подходов заключается в использовании компонентов, отличных от стандартного TMainMenu, например, TActionMainMenuBar или библиотек третьей стороны, таких как SpTBXLib.

Подтвержденное решение

Существует хитрый способ реализации динамического главного меню, который заключается в добавлении одного "дублика" TMenuItem под пункт "Reports" и установке свойства Visible в значение False. Затем необходимо добавить обработчик события OnClick для главного пункта "Reports" и реализовать логику формирования подменю там же.

Пример кода на Object Pascal:

procedure TForm1.ReportItemClick(Sender: TObject);
var
  Item: TMenuItem;
  I: Integer;
begin
  // Удаляем все элементы подменю, кроме первого - дубликата
  for I := ReportItem.Count - 1 downto 1 do
    ReportItem.Items[I].Free;

  // Создаем и добавляем новый элемент подменю
  Item := TMenuItem.Create(ReportItem);
  Item.Caption := 'Отчет 1';
  // Добавляем обработчик события или привязку к действию
  ReportItem.Add(Item);
  // Повторяем для каждого элемента подменю
  Item := TMenuItem.Create(ReportItem);
  Item.Caption := 'Отчет 2';
  ReportItem.Add(Item);
end;

В этом примере перед добавлением новых элементов подменю все существующие элементы удаляются, за исключением "дубликата", который остается для поддержания структуры меню.

Альтернативный ответ с использованием TDataSet

Другой подход заключается в использовании TDataSet для загрузки всех данных отчетов и вызов функции UpdateMenuReport при активации пункта "Reports" в меню. В этом случае можно создать массив TMenuArray для хранения элементов подменю и реализовать логику очистки и обновления элементов меню.

Пример кода для обновления меню отчетов:

type
  TMenuArray = array of TMenuItem;
var
  MyMenu: TMenuArray;

procedure TMain.UpdateMenuReport;
var
  j, i: integer;
begin
  Reports.Clear;
  if DS.Active and (DS.RecordCount > 0) then
  begin
    SetLength(MyMenu, DS.RecordCount);
    for i:= 0 to DS.RecordCount-1 do
    begin
      MyMenu[i] := TMenuItem.Create(Self);
      MyMenu[i].Name := 'Reports_'+ IntToStr(i);
      MyMenu[i].Caption := DS.FieldByname('NOM_REPORT').AsString;
      MyMenu[i].Tag := DS.FieldByname('ID').AsInteger;
      MyMenu[i].OnClick := MyClickPopupMenu;
      // Дополнительная логика для обработки клика по пункту меню
    end;
    Reports.Items.Assign(MyMenu);
  end;
end;

В этом примере, после инициализации массива элементов меню, происходит их заполнение данными из TDataSet, а затем обновляется содержимое меню Reports.

Заключение

Динамическое создание главного меню в Delphi на основе данных из базы данных может быть реализовано различными способами. Выбор конкретного метода зависит от требований проекта и предпочтений разработчика. Приведенные выше примеры кода демонстрируют, как можно адаптировать стандартные компоненты Delphi для решения этой задачи.

Создано по материалам из источника по ссылке.

Разработчик в Delphi создаёт динамическое главное меню, используя данные из базы данных для отображения списка отчетов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::