Für 1tens ist das meine Lösung:
Delphi-Quellcode:
var
Kategorie: String;
...
For I := 0 to DM.Actionliste.ActionCount - 1 do
begin
if Kategorie <> DM.Actionliste.Actions[I].Category then
begin
StrList.add(DM.Actionliste.Actions[I].Category);
end;
Kategorie := DM.Actionliste.Actions[I].Category;
end;
Wenn da jemand was besseres weiss immer her damit ...
für 2tens ist das meine Lösung:
Delphi-Quellcode:
For I := 0 to DM.Actionliste.ActionCount - 1 do
begin
if DM_Query.Query_Berechtigung['ITEM'] = DM.Actionliste.Actions[I].Category then
begin
MeineAction := TAction(FindComponent(DM.Actionliste.Actions[I].Name));
MeineAction.Enabled := TRUE;
end;
end;
Wenn auch dort jemand was besseres weiss, immer her damit...
Gruss
Holger