Menü zur Laufzeit bearbeiten

RealStinger

Grünschnabel
Hi,

ich hab folgendes Problem: Ich möchte gern ein Programm erstellen bei dem der User das Hauptmenü während der Laufzeit anpassen/erweitern kann.

Die Delphi-Hilfe sagt, dass man hierfür die Komponente TActionMainMenuBar verwenden kann, jedoch hab ich keinen Schimmer wie genau.

Vielleicht kann mir jemand von euch bei dem Problem helfen.

Gruß

Stinger
 

Interritor

Erfahrenes Mitglied
Hi

du kannst auch die "normale" Menü Komponente benutzen (MainMenü).

Einträge fügst du dann z.B. so hinzu:


Code:
procedure TForm1.Button1Click(Sender: TObject);

var
  NewItem: TMenuItem;
begin
  NewItem := TMenuItem.Create(FileMenu);
  try
    NewItem.Caption := 'Aktion';
    FileMenu.Insert(1, NewItem);
  except
    NewItem.Free;
    raise; { Exception erneut auslösen }
  end;
end;