Erstellen von PopupMenüs zur Laufzeit

[tomsel]

siehe Kommentare:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject); 
begin 
Application.ShowMainForm:= false; 
MenuItem:= TMenuItem.Create(Self); // mach das weg
//Variablen "nullen" 
i:=0; 


//ini-Datei einlesen 
Datei:=TStringList.Create; 
if FileExists('Verknüpfungen.ini') then 
  begin 
    Datei.LoadFromFile('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 
    MenuItem:= TMenuItem.Create(Self); 
    MenuItem.Caption:=Datei.Strings[i]; 
    MenuItem.OnClick:=Anwendung; 
    MenuItem.Tag:=i+1; 
    PopupMenu1.Items.Add(MenuItem); 
    MenuItem.Free; // und mach das weg
    i:=i+2; 
  end; 
i:=0; 

end;