Erstellen von PopupMenüs zur Laufzeit

[Florian L.]

Habe es schließlich so gemacht und es läuft super!!! Vielen Dank an alle Beteiligten. Vielleicht kann mir auch noch jemand sagen, wie ich den dynamischen Items noch Short-Cuts und Bitmaps hinzufügen kann. Das Problem ist nämlich, dass ich den ShortCut nicht in der Konfigurationsdatei speichern und die Bitmap nicht über einen Pfad angeben kann.
Aber trotzdem vielen Dank!


Und hier mein Code:

Delphi-Quellcode:

Application.ShowMainForm:= false;
//MenuItem:= TMenuItem.Create(Self);
//Variablen "nullen"
i:=0;


//ini-Datei einlesen
Datei:=TStringList.Create;
if FileExists('Verknüpfungen.ini') then
  begin
    Datei.LoadFromFile(ExtractFilePath(Application.ExeName)+'Verknüpfungen.ini');
  end
else
  begin
    ShowMessage('Die Datei "Verknüpfungen.ini" konnte nicht gefunden werden und wird deshalb neu erstellt!');
    Datei.SaveToFile('Verknüpfungen.ini');
    close();
  end;


//Liste der Verknüpfungen zusammenbauen
while i < Datei.Count do
  begin
    try
    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;
    except
    //
    end;
  end;
i:=0;