遍历dxBarManager菜单及工具条

procedure TForm1.blDxBarManager;
var
  i: Integer;
begin
  for i := 0 to dxBarManager1.ItemCount - 1 do
  begin
    if dxBarManager1.Items[i] is TdxBarButton then
      TdxBarButton(dxBarManager1.Items[i]).OnClick := dxBarButtonClick;
  end;
end;