Menu Dinamico utilizando Ribbon

[steelha]

Muy buenas, asi como el tema dice; necesito ayuda para realizar un menu dinamico utilizando el componente Ribbon pero utilizando una Db. El problema consiste en que puedo montar los tabs que seran las diferentes opciones de menu, pero a la hora de crear grupos y los items en unos me crea en otros no y solo me coloca un item. no tengo idea de que hago mal. A continuacion dejo codigo he imagenes

procedure Tfrmprincipal.Carga_Menu;
var
Group : TRibbonGroup;
TabItem : TRibbonTabItem;
BarItem : TActionBarItem;
BarAction : TActionClientItem;
AnAction : TAction;
oldsql : string;
begin
oldsql := Dm.qrymenuitems.SQL.Text;
Dm.qrymenu.Open;
Dm.qrymenu.First;

while not dm.qrymenu.Eof do //Crear las paginas/pestañas
begin
//Crear Pagina de la opcion principales del menu
TabItem := mnPrincipal.Tabs.Add;
TabItem.Caption := Trim(Dm.qrymenumCaption.Value);

dm.qrymenuitems.SQL.Clear;
dm.qrymenuitems.SQL.Text := 'Select * from tblMenu Where (mactivo = 1) and (mpertenece =' +
IntToStr((dm.qrymenuIDmenu.Value)) + ') Order by mpertenece,morden ASC';

dm.qrymenuitems.Open;
dm.qrymenuitems.First;

Group := TRibbonGroup.Create(mnPrincipal);
Group.Parent := TabItem.Page;
Group.Caption := Trim(dm.qrymenuitemsmmenu.Value);

while not Dm.qrymenuitems.eof do
begin
BarItem := amPrincipal.ActionBars.Add;
BarAction := BarItem.Items.Add;
amPrincipal.ActionBars.Add;
// BarAction.Action := Action1;
BarAction.Caption := Trim(Dm.qrymenuitemsmCaption.Value);
BarItem.ActionBar := Group;

Dm.qrymenuitems.Next;
end;
dm.qrymenu.Next;
end;
dm.qrymenuitems.SQL.Text := oldsql;
end;

[GerTorresM]

Hola buen@s días, tardes, noches !!

Te sugiero que te des una visita en esta página https://www.axolot.com/axwribbon.htm, el componente es gratuito y el ejemplo que trae es muy sencillo, sin un poco de paciencia y un poco de tiempo en pruebas a la fija podrás creer el menú en tiempo de ejecución

[steelha]

Gracias verificare

[steelha]

El componente me trae error y ademas no queria utilizar compenentes de terceros prefiero el que trae delphi por default