In the next procedure allow is false but tdxribbon and tdxbar are still in the component list.
procedure TPrincipalFrm.dlgPolíticasFilterComponent(Sender: TObject;
AComponent: TComponent; var Allow: Boolean);
var
dxcomponente:boolean;
begin
allow:=(acomponent is TAction) and not (acomponent is tdxbar) and
not (acomponent is TdxRibbonTab);
end;