Danke erst mal für den Code. Er funktioniert, jedoch nur wenn ich das PopupMenu um 1 Eintrag erweitere. Sobald ich ein weiteres einfügen möchte (mit dem untenstehenden Code) bekomme ich folgende Fehlermeldung, welche als Bild im Anhang steckt. Ich hoffe, dass es überhaupt machbar ist, und das Ihr wisst wie!
Vielen Dank!
Florian
Delphi-Quellcode:
//Liste der Verknüpfungen zusammenbauen
while i < Datei.Count do
begin
//MenuItem:= TMenuItem.Create(Self);
MenuItem.Caption:=Datei.Strings[i];
MenuItem.OnClick:=Anwendung;
MenuItem.Tag:=i+1;
PopupMenu1.Items.Add(MenuItem);
//MenuItem.Free;
i:=i+2;
end;
i:=0;