geil nen bissle umgeändert hauts hin THX
jedoch gibts jetzt nen neues Problem mit den Proceduren der OnClickereignisse.
Delphi-Quellcode:
for i := 1 to filesize(genrefile) do begin
read(genrefile,genres[i]);
NewItem := TMenuItem.Create(self);
NewItem.Caption := genres[i].name;
NewItem.OnClick := genre21Click;
Mainmenu1.Items.Items[3].Items[1].Add(NewItem);
end;
Und zwar kann ich beim OnClick Event der automatisch erstellten Items, kein bezug zu einer Filterfunktion herstellen. Wenn ich sie dort aufrufen lasse mit Parameterübergabe funktioniert es nicht. Also hatte ich die "genre21Click" procedure erstellt die leider kein parameter hat (mit würde sie auch nicht gehen). So nun weiß ich nicht wie ich es anstelle das je nach dem welches automatisch erstelltes item geklickt wird ein anderer Parameter an meine Filterfunktion geht.
Einen ItemIndex hat MainMenu anscheinend nicht.