Einzelnen Beitrag anzeigen

Generalissimo

Registriert seit: 28. Aug 2003
187 Beiträge
 
Delphi 6 Enterprise
 
#1

MainMenu.Merge für ein Menü auf einer Toolbar

  Alt 30. Dez 2003, 12:22
Hallo,

ich habe ein Problem bezüglich der Merge-Prozedure für MDI-Anwendungen.
In meinem Hauptformular ist eine CoolBar. Auf einem CoolBand dieser Coolbar liegt
eine Toolbar, die wiederum in ihrer Eigenschaft Menu ein MainMenü (TMainMenu) hat.
Das selbe Spiel läuft in MDI-Childformularen ab.
Wenn jetzt ein MDI-Child erzeugt wird, wird das CoolBand des Childs in
die CoolBar des Hauptformular integriert.
Ebenso soll es mit dem MainMenu des Childs passieren

Bissl Code:

Delphi-Quellcode:
procedure TfrmMain.acChildExecute(Sender: TObject);
var Form:TfrmChild;
begin
  If IsFormNotCreated('frmChild') then //überprüft nur ob Childfenster existiert,
                                       // wenn ja wird es mit frmChild.bringtofront nach Vorne gebracht
  begin
   Form:=TfrmChild.Create(Application.MainForm);
   Form.SetCoolBar(clbMain); // CoolBar des Hauptformular wird mit der ToolBar (CoolBand mit Toolbar) des Childforms erweitert
   Form.Tag:=CreateNewMenuItem(acChild); //Neuer Eintrag unter dem Menü Fenster
   self.toolbarMain.Menu.Merge(Form.MainMenu); // <-- hier sollen die Menü's vereinigt werden, leider ohne Erfolg
  end;
end;
Leider wird das Menü nicht integriert.
Hat jemand damit Erfahrung?
  Mit Zitat antworten Zitat