Einträge im Untermenü zur Laufzeit erzeugen

[Muetze1]

Moin!

Delphi-Quellcode:

  findfirst(ExtractFilePath(ParamStr(0))+'skins/'+'*.ini',faAnyFile-faDirectory,F);
  repeat
    if not ((f.name = '.') or (f.name = '..')) then
    begin
      Delete(f.Name, Length(f.Name)-3, 4);
      NewItem := TMenuItem.Create(Self);
      NewItem.Caption := (f.Name);
      NewItem.OnClick := DieOnClickDieDuWillst;  // <---
      Skins2.Add(NewItem);
    end;
  until findnext(F) <> 0;
  ini_skin := TiniFile.Create(ExtractFilePath(ParamStr(0))+'skins/'+skinname);
  try

MfG
Muetze1