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 }