Ver Mensaje Individual
  #5  
Antiguo 15-01-2013
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Reputación: 13
steelha Va por buen camino
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
Responder Con Cita