Объединение TMainMenu

[Ivankin]

Приветствую!
Есть приложение, которое подключает из DLL динамически создаваемое меню. При создании TMenuItem вместо OnClick вешается своя функция DynamicClick. После объединения Merge главная форма полностью видит меню, но некоторые пункты меню DLL вызывают процедуры главного приложения вместе с DynamicClick.

Создаём меню так:

var
  I,J : Integer;
  MenuItems : array of TMenuItem;
  ToItem    : TMenuItem;
Begin
  SP_IO_TEMPLATES_W.First;
    for I := 0 to SP_IO_TEMPLATES_W.RecordCount - 1  do
      Begin
        J := I + SP_IO_CONTRAGENTS_W.RecordCount - 1;
        if SP_IO_TEMPLATES_WEXPORT.AsInteger = 0    // Обрабатываем ветку импорта
          Then
            Begin
              ToItem := ImportSub.Find(SP_IO_TEMPLATES_WCONTRACTOR_NAME.AsString);
              MenuItems[J] := TMenuItem.Create(ToItem);
              MenuItems[J].Name := 'N'+IntToStr(1000+J);
              MenuItems[J].Caption := SP_IO_TEMPLATES_WTEMPLATE_NAME.AsString;
              ToItem.OnClick := DynamicClick;
              ToItem.Insert(ToItem.Count,MenuItems[J]);
          end
            Else                                    // Обрабатываем ветку экспорта
              Begin
                ToItem := ExportSub.Find(SP_IO_TEMPLATES_WCONTRACTOR_NAME.AsString);
                MenuItems[J] := TMenuItem.Create(ToItem);
                MenuItems[J].Name := 'N'+IntToStr(2000+J);
                MenuItems[J].Caption := SP_IO_TEMPLATES_WTEMPLATE_NAME.AsString;
                ToItem.OnClick := DynamicClick;
                ToItem.Insert(ToItem.Count,MenuItems[J]);
              end;
        SP_IO_TEMPLATES_W.Next;
      end; 
End;

Объединяем в основном приложении так:

JvMainMenu1.Merge(InitIOLib(SessDM.OrSession));

InitIOLib:
----------------------
  DM := TDM.Create(Nil);

      try
          DM.OracleSession := OrSession;
          for I := 0 to DM.ComponentCount-1 do
            Begin
              if DM.Components[I] is TOracleDataSet then
                (DM.Components[I] as TOracleDataSet).Session := OrSession;

            end;

           DM.SP_IO_CONTRAGENTS_W.Open;
           DM.SP_IO_TEMPLATES_W.Open;
           DM.FillAddMenu;
      finally
        Result := DM.AddMainMenu;

      end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор