Hi
Ich möchte gerne zur Laufzeit in mein Hauptmenü weitere Untermenüs einfügen. Darum habe ich in der Hilfe von Delphi nachgeschlagen und dort steht folgendes Beispiel
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| var NewItem: TMenuItem; I : integer; begin { zuerst Trennlinie erzeugen } NewItem := TMenuItem.Create(Self); NewItem.Caption := '-'; { neuen Eintrag in Menü FENSTER einfügen } Fenster.Add(NewItem); { jetzt für jedes Formular einen Eintrag erzeugen und einfügen } for I := 0 to Screen.FormCount-1 do begin NewItem := TMenuItem.Create(Self); NewItem.Caption := Screen.Forms[I].Name; Fenster.Add(NewItem);
end; end; |
Ich habe daraus eigentlich nur den Variablenname und den Createaufruf herausgenommen.
Ich bekomme jedoch schon beim Compilieren folgenden Fehler
Zitat: |
[Fehler] test.pas(545): Undefinierter Bezeichner: 'Self'
|
Woran liegt das?
cu Patmann