[gelöst] TActionlist und vergebene Shortcuts

[sx2008]

Ungetestet:

Delphi-Quellcode:

function GetShortcutsFromActionlist(ac:TActionList):string;
var
  i : Integer;
  a : TCustomAction;
begin
  result := '';
  for i := 0 to ac.ActionCount-1 do
  begin
    if ac.Actions[i] is TCustomAction then
    begin
      a := TCustomAction(ac.Actions[i]);
      if a.ShortCut <> 0 then 
        result := result + ShortCutToText(a.ShortCut) +',';
  end;
end;