hab nach diesem beispiel alles gemacht, klappt auch, nur wie bekomme ich es jetzt hin, das beim klick auf eins der erstellten untermenüs etwas ausgeführt wird??
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);
Skins2.Add(NewItem);
end;
until findnext(F) <> 0;
ini_skin := TiniFile.Create(ExtractFilePath(ParamStr(0))+'skins/'+skinname);
try