TActionlist -> Kategorien auslesen und Action enabled = TRUE

[HolgerCW]

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