Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - MainMenu unterpunkt dynamisch "füllen".
friesi - Mi 21.12.05 00:43
Titel: MainMenu unterpunkt dynamisch "füllen".
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. - Mi 21.12.05 00:51
Hallo!
Geht ganz einfach:
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
friesi - Mi 21.12.05 00:57
Das ging ja fix!
Hat mir sehr geholfen! Vielen Dank :)
Manchmal kann es eben doch ganz einfach sein ;)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!