1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

  LToolbar := getNewToolBar();
  for LActnIdx := 0 to AFrame.IGetActionCount - 1 do begin
    LAction := AFrame.IGetActionByIndex(LActnIdx);

    if pos('Separator', LAction.Caption) = 0 then begin
      LTBtn := TAdvGlowButton.Create(LToolBar);
      LTBtn.Transparent := true;
      LTBtn.Action := LAction;
      LTBtn.Height := 56;
      LToolBar.AddToolBarControl(LTBtn);
    end
    else if LAction.Visible then begin
      LToolBar.EndUpdate;
      LToolBar := getNewToolBar();
    end;
  end;
  LToolBar.EndUpdate;

  // hier kommt der problematische teil, also die ShortCuts feuern nicht...
  with ActionManager1 do begin
    while LinkedActionLists.count > 4 do begin
      LAListItem := LinkedActionLists[LinkedActionLists.count -1];
      LAListItem.ActionList := nil;
      LinkedActionLists.Delete(LinkedActionLists.count -1);
    end;

    LAList := AFrame.IGetActionList;
    if LAList <> nil then
      with LinkedActionLists.Add as TActionListItem do begin
        Caption := LAList.Name;
        ActionList := LAList;
      end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:

...
  for LActnIdx := 0 to AFrame.IGetActionCount - 1 do begin
    LAction := AFrame.IGetActionByIndex(LActnIdx);
// die aktion mit einer Aktion des Hauptformulars verlinken, damit die Tastaturkürzel funktionieren...
    LMAinFormAction := TAction.Create(ALActions);
    LMainFormAction.Assign(LAction);
    LMainFormAction.ActionList := ALActions;
...