Frage zu TMainMenu

[bombilein]

Prozedurkopf:

procedure CMenuAndToolbar.UpdateMainMenue();

AOWnerMenu ist vom Typ TComponent.
LEtzentdlich ist AOwnerMenu mein Hauptformular.

Das Menü wird dynamisch erzeugt, zum Zeitpunkt wo ich eine Instanz der Klasse CMenuAndToolbar erzeuge.

Delphi-Quellcode:

constructor CMenuAndToolbar.Create(AOwnerMenu_parm, AOwnerToolbar_parm: TComponent; refDataObject_parm: CDataObject; refGraphicObject_parm: CGraphObject);
begin { CMenuAndToolbar.Create }
  ASSERT(b(AOwnerMenu_parm <> nil));
  ASSERT(b(AOwnerToolbar_parm <> nil));
  ASSERT(b(refDataObject_parm <> nil));
  ASSERT(b(refGraphicObject_parm <> nil));
  inherited Create();
  // Default
  iLanguage        := ciGerman;
  // Parameter den Variablen zuweisen
  AOwnerMenu       := AOwnerMenu_parm;
  AOwnerToolbar    := AOwnerToolbar_parm;
  refDataObject    := refDataObject_parm;
  refGraphicObject := refGraphicObject_parm;

  Mainmenue        := TMainMenu.create(AOwnerMenu); <- Menü wird hier erzeugt
  UpdateMainMenue(); <- hier soll das Menü mit Items ausgefüllt werden; diese Methode wird öfters aufgerufen
end; { CMenuAndToolbar.Create }