Ayuda con Componente TcategoryPanelGroup

[steelha]

Buenas, he estado buscando información de cómo crear en tiempo de ejecución el tcategoryGroupPanel. He encontrado poca información de cómo hacerlo pero logre crear los paneles. Mi necesidad es si alguien sabe como puedo crear el panel y dentro de el crear la cantidades de controles que tengan por grupo. Tengo una DB en SQLSERVER la cual posee la siguiente estructura:
DBNAME : HistorialItems (esta posee los items hacer utilizados por la tabla plantilla que se define por cada medico)

Iddatos captionGrupo Captionlabel Datostipo Datosgrupo Datosestado
1 HABITA Det. Casa Edit 2 True
2 HABITA Techo Edit 2 True
9 HABITA Disposición Excretas Memo 2 True
10 HABITA Estilo Vida Memo 2 True
31 ANT. GINECOLOGICO FUM Edit 6 True
32 ANT. GINECOLOGICO Menopausia Memo 6 True
40 HABITOS TOXIC Tabaco Checkbox 7 True
41 HABITOS TOXIC Café Checkbox 7 True
42 HABITOS TOXIC Alcohol Checkbox 7 True
43 HABITOS TOXIC Drogas Legales e Ilegalex Memo 7 True
44 HABITOS TOXIC Tizana Edit 7 True

Con este procedimiento logro obtener y crear la cantidad de grupo necesarios según la plantilla seleccionada

Código Delphi [-]
procedure TfrmPacientes.Crear_panel(plantilla : Integer);
Var
 LPanel   : TCategoryPanel;
 npaneles : Integer;
 i        : Integer;
begin
  DM.QryCalculos.SQL.Clear;
  DM.QryCalculos.SQL.Text := 'SELECT COUNT (*) AS Cantidad ' +
                             'FROM (SELECT COUNT(itemsgrupo) AS cantidad ' +
                             '      FROM (SELECT DISTINCT idPlantilla, idItems, itemsgrupo '+
                             '            FROM PlantillaItems '+
                             '      WHERE idPlantilla = lantilla '+
                             '            ) AS dt '+
                             '      GROUP BY itemsgrupo '+
                             '      ) AS CM';

  dm.QryCalculos.Parameters.ParamByName('plantilla').Value := plantilla;
  DM.QryCalculos.Open;
  npaneles := DM.QryCalculos.Fields[0].Value;
  DM.QryCalculos.Close;

  for i := 1 to npaneles do
    begin
      LPanel:=TCategoryPanel.Create(micategorygroup);
      LPanel.Caption:= Trim(DM.QryContruirItemsDatosCaptionGrupo.Value);
      LPanel.PanelGroup:= micategorygroup;
      LPanel.TabOrder  := i;
      LPanel.Name := Trim(DM.QryContruirItemsDatosCaptionGrupo.Value) // Por ahora obtengo error de nombre ya existe pero luego lo arreglo XD
    end;
end;

como se puede ver en el ejemplo de tabla, pueden existir uno o varios ítems para cada grupo. Acá es donde radica mi problema como crear el tipo de ítem dentro del grupo que le corresponde. Para luego guardar esa información del tcategorypanelgroup..

Agradeceré cualquier ayuda o aporte que puedan realizar. Mil gracias de ante mano por toda la ayuda prestada.

[Neftali [Germán.Estévez]]

Hay que añadir la categoría (TCategoryButtons) y luego los botones a cada categoría (TButtonItem).
Utilizando un código como este, se condigue lo que necesitas. El tuyo puede variar por las tablas o campos, pero será muy parecido.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
 LPanel   : TCategoryPanel;
 Cat      : TCategoryButtons;
 npaneles : Integer;
 i, j     : Integer;
 but      : TButtonItem;
begin
  QryCalculos.SQL.Clear;
  QryCalculos.SQL.Text := 'select * from (select distinct captionGRUPO from Tabla1) T';

  QryCalculos.Open;
  npaneles := QryCalculos.RecordCount;

  for i := 1 to npaneles do begin
      LPanel:=TCategoryPanel.Create(micategorygroup);
      LPanel.Caption:= Trim(QryCalculos.FieldByName('captionGRUPO').AsString);
      LPanel.PanelGroup:= micategorygroup;
      LPanel.TabOrder  := i;
      LPanel.Name := Trim('Grupo' + i.ToString); // Por ahora obtengo error de nombre ya existe pero luego lo arreglo XD

      Cat := TCategoryButtons.Create(lPanel);
      Cat.Name := 'Category' + i.ToString;
      cat.Parent := LPanel;
      Cat.Align := alClient;
      cat.ButtonWidth := 500;

      QryButtons.Close;
      QryButtons.SQL.Clear;
      QryButtons.SQL.Text := 'select * from tabla1 WHERE captionGrupo=:grupo';
      QryButtons.Parameters.ParamByName('grupo').Value := QryCalculos.FieldByName('captionGRUPO').AsString;
      QryButtons.Open;

      LPanel.Height := 50 * (QryButtons.RecordCount);

      // Para cada Grupo, crear los botones...
      for j := 0 to (QryButtons.RecordCount -1) do begin
        // Crear el boton
        but := TButtonItem.Create(Cat.Categories.Add.Items);
        but.Caption := QryButtons.FieldByName('captionLabel').AsString;

        QryButtons.Next;
      end;
      QryCalculos.Next;
    end;
end;

El resultado serán las categorías y los botones.

[steelha]

Muchas gracias Neftali, aprovechare de inmediato a ver que saco de tu obra de arte XD. También gracias por tu código Texto a Menu lo adapte a base de dato lo único que no veo como agregar los hints y los hotkeys.

[steelha]

Buenas Neftali, logre adaptar tu código y logre el resultado parecido al tuyo, de ante manos muchas gracias por el tiempo invertido en ayudarme. Aprendí algo que desconocía, pero en realidad lo que deseo es que en ves de ser botones es utilizarlo como un contenedor para crear dentro los el tipo de componente definido en la tabla componentes. Se que se puede pero solo lo se hacer en modo de diseño. pero como no se cuantos grupo se crearan ni cuales datos elegirán no puedo crear todo de un tiro. luego esa plantilla creada se guardara en otra tabla con la información recopilada en cada tipo de campo (no se si me doy a entender).

[Neftali [Germán.Estévez]]

Empezado por steelha

...pero en realidad lo que deseo es que en ves de ser botones es utilizarlo como un contenedor para crear dentro los el tipo de componente definido en la tabla componentes. Se que se puede pero solo lo se hacer en modo de diseño. .

En ese caso es más sencillo.
Sólo debes crear los componentes en ejecución como se crean normalmente en runtime y utilizar como Parent el CategoryButton que quieras.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  var edt:tEdit := TEdit.Create(Self);
  edt.Parent := CategoryPanel3;
  edt.Top := 10; edt.Left := 10;

  var chk:TCheckBox  := TCheckbox.Create(Self);
  chk.Parent := CategoryPanel3;
  chk.Top := 40; chk.Left := 10;

  var mm:TMemo  := TMemo.Create(Self);
  mm.Parent := CategoryPanel3;
  mm.Top := 70; mm.Left := 10;
end;

[steelha]

Muchas gracias Neftali. Implemente lo que me dijiste y todo bien pude corregir el error de Name ya existe, lo único que no he podido lograr es que los controles creados lleven un orden. Coloco imagen para que veas como me queda. El que encuentre el checkbox se gana un beso y si hay uno