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
