Menu Dinamico Utilizando Componente dxnavbar

[steelha]

Gracias por la respuesta y si he andado todo y nada ni en san google he encontrado lo que deseo

[[maeyanes]]

Hola...

¿Y se puede saber exactamente cuál es el error que obtienes?



Saludos...

[steelha]

Este es el codigo donde obtengo el error

Código Delphi [-]
Procedure Tfrmprincipal.Cargar_Opciones;
var i,j : Integer;
    grupo : TdxNavBarGroup;
    item  : TdxNavBarItem;
begin
  i:= 0;
  j:= 0;

  dmConexiones.sqlMenuGrupo.Close;
  dmConexiones.sqlMenuItems.Close;
  dmConexiones.sqlMenuGrupo.Open;
  dmConexiones.sqlMenuItems.Open;

    //Crear el nuevo grupo
    for i:= 1 to dmConexiones.sqlMenuGrupo.RecordCount do
    begin
      grupo := TdxNavBar.Groups.Add; //aca Method identifier expected 
      grupo.Caption := dmConexiones.sqlMenuGrupogrupo_nombre.Value;
      grupo.SmallImageIndex := 0;
      grupo.LargeImageIndex := 0;

      //Crear los items dentro del grupo

      for j:= 1 to dmConexiones.sqlMenuItems.RecordCount do
      begin
        item := dxNavBarDragObject.NavBar.Items.add;
        item.Caption := dmConexiones.sqlMenuItemsItem_Nombre.Value;
        item.SmallImageIndex := 0;
        item.LargeImageIndex := 0;
      end;
    end;
  dmConexiones.sqlMenuGrupo.Close;
  dmConexiones.sqlMenuItems.Close;

{    i, j : integer;
  AItem : TdxNavBarItem;
begin
  for j := 0 to 4 do
  begin
    dxNavBarRecursos.Groups.Add.Caption := 'Group ' + IntToStr(j);
    for i := 0 to 4 do
    begin
      AItem := dxNavBarRecursos.Items.Add;
      AItem.Caption :=  'Group ' + IntToStr(j) + '  Item ' + IntToStr(i);
      AItem.OnClick := OnItemClick;
      AItem.Name := 'ItemName' + IntToStr(j) + IntToStr(i) ;
      dxNavBarRecursos.Groups.Items[j].CreateLink(AItem);
      end;
  end;}
end;

Me he dado cuenta que cuando presiono contro+space para obtener las propiedades no me sale groups

[[maeyanes]]

Hola...

El problema es que estás tratando de llamar un método usando el identificador de clase (TdxNavBar) y no un objeto instanciado de esa clase.

Código Delphi [-]
var
  grupo : TdxNavBarGroup;

begin
  grupo := dxNavBar1.Groups.Add; // <- se usa un objeto y no la clase
  // Configurar el grupo...
end;

Saludos...

[steelha]

Muchas gracias por la ayuda Maeyanes, luego de eso pude corregir el error aca pongo el codigo de la correccion por si le sucede a alguien mas en el futuro

Código Delphi [-]
     
     menu.Groups.Add.Caption := dmConexiones.sqlMenuGrupogrupo_nombre.Value;
     grupo := TdxNavBar.Groups.Add; //anteriormente daba error Method identifier expected 

        for j:= 0 to (dmConexiones.sqlMenuItems.RecordCount-1) do
        begin
          //Crear los items dentro del grupo
          item := menu.Items.Add;
          item.Caption := dmConexiones.sqlMenuItemsItem_Nombre.Value;
          item.OnClick := OnItemClick;
          item.Name    := dmConexiones.sqlMenuItemsItem_Id.Value;
          menu.Groups.Items[i].CreateLink(item);
          item.LargeImageIndex :=0;
          item.SmallImageIndex :=0;

[steelha]

Bueno, ya resolvi ese problema ahora me queda la incertidumbre de como hare para que cada link me abra la patalla adecuada y eso si que no tengo ni idea de como hacerlo. Si alguien tiene algun conocimiento de ello por favor ayudar

[steelha]

Por si no fui especifico lo que deseo es poder abrir las ventanas correspondiente a cada link que le de click, pero como le asigno a los link que ventana deben abrir