MainMenu unterpunkt dynamisch "füllen".

friesi · Beiträge: 44 Windows XP SP2 VS 2005

Hallo.

Ich benutze die Componente "TMainMenu" und habe über den Objektinspektor Menupunkte erstellt.
Nun gibt es diese Punkte:

unter Datei (Erster Menuüunkt) gibt es Speichern, Gehe zu, Drucken, Schließen
Nun soll bei "Gehe zu" ein Submenu erstellt werden.
Wie kann ich in der Laufzeit dieses Submenu erstellen und Funktionen zuweisen?

Wäre echt klasse wenn ihr mir bei dem vielleicht doch so einfachem Problem helfen könntet.

Vielen Dank

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Geht ganz einfach:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var
  mi : TMenuItem;
begin
  mi := TMenuItem.Create(mi_gehezu);
  mi.Caption := 'foo';
  mi_gehezu.Add(mi);
end;

Dabei ist mi_gehezu Dein bestehenden "Gehe zu"-Menuitem.

Grüße
Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

friesi · Beiträge: 44 Windows XP SP2 VS 2005

Das ging ja fix!

Hat mir sehr geholfen! Vielen Dank

Manchmal kann es eben doch ganz einfach sein

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme