TMainMenu build пункт меню динамический

Question

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

У меня есть конкретная ситуация, когда некоторые элементы меню необходимо собирать перед отображением.

Давайте предположим, что мое меню имеет следующие основные элементы:

Файлы - Клиент - Отчеты - О

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

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

Существуют ли способы создания этих элементов перед их отображением?

Answer 1

Есть трюк, который вы можете использовать. Вам необходимо добавить один манекен TMenuItem под Доклады и установить его Visible на False. Затем добавьте OnClick событие в Отчёт и введите свою населяющую логику. Прежде чем добавлять новые элементы, вы должны удалить существующие, но вы должны оставить свой фиктивный элемент неповрежденным.

Что-то вроде:

procedure TForm1.ReportItemClick(Sender: TObject); 
var 
    Item: TMenuItem; 
    I: Integer; 
begin 
    // Delete all items but first - dummy - one 
    for I := ReportItem.Count - 1 downto 1 do 
    ReportItem.Items[I].Free; 

    Item := TMenuItem.Create(ReportItem); 
    Item.Caption := 'abc'; 
// Item.OnClick := ... 
// or 
// Item.Action := ... 
    ReportItem.Add(Item); 

    Item := TMenuItem.Create(ReportItem); 
    Item.Caption := '123'; 
// Item.OnClick := ... 
// or 
// Item.Action := ... 
    ReportItem.Add(Item); 
end; 

Answer 2

Позволяет Предположим, что у вас есть DS (TDataSet), как загрузить все ваши отчеты данных. И в тот момент, когда вы отбрасываете меню «Отчеты», вы можете вызвать UpdateMenuReport.

type 
TMenuArray = array of TMenuItem; 

var MyMenu: TMenuArray; 

procedure TMain.MyClickPopupMenu(Sender: TObject); 
begin 
    case TMenuItem(TMenuItem(Sender).Parent).Tag of 
     // do Something 
    end; 
end; 


procedure TMain.UpdateMenuReport; 
    procedure InitMyMenu(var AMenu: TMenuArray); 
    var i: Integer; 
    begin 
     if Length(AMenu)>0 then for i:= 0 to Length(AMenu)-1 do AMenu[i].Free; 
     SetLength(AMenu, 0); 
    end; 
var j, i: integer; 
begin 
    InitMyMenu(MyMenu); 
    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; 
    end; 
end;