untermenü aus variable

[dokdobler]

Hi,

Also ich bin derzeit am Programmieren eines Programms für meinen Abiball, soll mir die Organisation erleichtern =)

Jetzt folgendes, ich habe ein Menü erstellt
MainMenu1 (Personen Hinzufügen, Klasse Hinzufügen, Klassen ect)

Wenn ich Klasse hinzufügen klicke soll eben ein Fenster erscheinen wo man die gewünschte Klasse eintragen kann
var klassen : string;
begin
klassen := inputbox('Klasse','Klasse','Bitte Klasse angeben');

Das Funktioniert ja auch, nur ich bin jetzt schon die ganze zeit am überlegen wie ich das jetzt weiter lösen kann das ich mit dem gespeicherten Namen ein UNTERMENÜ für Klassen erstellen kann

bsp
Datei
Klassen -> 8D

lg

need help...

[inout]

(ungetestet)

var mi:tmenuitem;
begin
  mi:=tmenuitem.create(self);
  mi.caption:='8D';
  mainmenu1.items[2].add(mi);
end;

Den Index musst du evtl. noch anpassen und das Objekt am Ende natürlich wieder freigeben.

[dokdobler]

Hi,

Danke für die Hilfe,

Wenn ich eine Klasse jetzt hinzufügen möchte bekomme ich folgende Meldung

List index (2) out of bounds

an was kann das liegen ? im Code selbst wird kein Fehler gefunden.

[inout]

Meinen letzten Satz oben bitte beachten.

Du musst die Indexangabe bei items[2] beachten.
2 heißt hier, dass dem 3. Hauptmenüeintrag ein Untermenüeintrag (Indizierung also standardmäßig ab 0) hinzugefügt wird; das musst du für deine Anwendung anpassen.

Genau das sagt dir die Fehlermeldung ja auch :idee