Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
Ayuda con Componente TcategoryPanelGroup

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)
Cita:
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.
Responder Con Cita
  #2  
Antiguo 14-10-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.


__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 14-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 16-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
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).
Imágenes Adjuntas
Tipo de Archivo: png Como lo quiero.png (5,4 KB, 3 visitas)
Tipo de Archivo: png Como me enseñaste.png (4,6 KB, 3 visitas)
Responder Con Cita
  #5  
Antiguo 17-10-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por steelha Ver Mensaje
...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;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 17-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
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
Imágenes Adjuntas
Tipo de Archivo: png todosjuntitos.png (4,4 KB, 3 visitas)
Responder Con Cita
  #7  
Antiguo 18-10-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por steelha Ver Mensaje
...pude corregir el error de Name ya existe, lo único que no he podido lograr es que los controles creados lleven un orden.
Hay varias cosas que debes cambiar en los componentes creados.
Una es la propiedad Name (por lógica) para que no te de el error de nombres duplicados.
La otra es la posición (Top), para poder ver los componentes correctamente.

Si los estás creando en un bucle, pues lo lógico sería usar el indice para "variar" la posición vertical. Además tendrás que tener en cuenta que dependiendo del tipo de control debes incrementar más o menos esa posición, porque no mide lo mismo (en altura) un TCheckbox o un TMemo.

Código Delphi [-]
for i := 0....
  // Crear componente. ...
  comp.Left := 10;
  comp.Top := 20 * i;   // por ejemplo...
  ...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #8  
Antiguo 19-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
Muchas gracias, he podido resolver el problema aca dejo código completo. Si lo ven feíto y quieren aportar algo para que se vea mejor estéticamente y mejorar rendimiento sean bienvenidos XD. Ahora me toca la parte dolorosa guardar la información de cada uno en su respectivos lugar y luego cargarla para consultar T_T (siento que me va a doler la cabeza pero tengo a mano aspirina XD).

Código Delphi [-]
procedure TfrmPacientes.Crear_panel();
Var
 LPanel   : TCategoryPanel;
 Cat      : TCategoryButtons;
 npaneles : Integer;
 but      : TButtonItem;
 i, j     : Integer;
 edt      : TEdit;
 mem      : TMemo;
 chk      : TCheckBox;
 lbl      : TLabel;
 contcomp : Integer;
 tp       : Integer;
 sumaalt  : Integer;
Const
  cl = 165;  //Los controles estaran siempre en la left 165
  ll = 5;    //Los label estaran siempre en la pos left 5
  sp = 5;    //Separacion etre controles

  lw = 154;
  ew = 160;  eh = 21;
  mw = 510;  mh = 90;
  cw = 25;   ch = 17;
begin
  DM.QryPGrupos.Close;
  DM.QryPGrupos.Parameters.ParamByName('p').Value := DM.QryPlantillaDefaultidPlantilla.Value;
  DM.QryPGrupos.Open;
  npaneles := DM.QryPGrupos.RecordCount;

  contcomp := frmPacientes.ComponentCount;

  for i := 1 to npaneles do
  begin
      LPanel:=TCategoryPanel.Create(micategorygroup);
      LPanel.Caption:= Trim(DM.QryPGrupos.FieldByName('DatosCaptionGrupo').AsString);
      LPanel.PanelGroup:= micategorygroup;
      LPanel.TabOrder  := i;
      LPanel.Name := Trim('Grupo' + i.ToString);

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

      DM.QryPButtons.Close;
      DM.QryPButtons.Parameters.ParamByName('p').Value   := DM.QryPlantillaDefaultidPlantilla.Value;
      DM.QryPButtons.Parameters.ParamByName('cap').Value := DM.QryPGrupos.FieldByName('DatosCaptionGrupo').AsString;;
      DM.QryPButtons.Open;

      LPanel.Height := (50 * (DM.QryPButtons.RecordCount));
      tp := 2; //Posicion inicial del primer control

      //Para calcular la altura del proximo control se utilizara
      //tp = tp + alturadelcontrol + sp;
      //Donde tp es el top actual y sp es la separacion entre controles

      // Para cada Grupo, crear los botones...
      for j := 0 to (DM.QryPButtons.RecordCount -1) do
      begin
          contcomp := contcomp + 1;
          //Crear el label con la nota del campo a introducir dato
          lbl       := TLabel.Create(Self);
          lbl.Name  := 'lbl'+IntToStr(contcomp);
          lbl.Parent:= Cat;
          lbl.Caption:= Trim(DM.QryPButtonsDatosDetalle.Value);
          lbl.Top   := tp;
          lbl.Left  := ll;

        // Crear el control segun su tipo y ubicarlo al lado del label
        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TEdit') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Edit') then
        begin
          edt       := TEdit.Create(Self);
          edt.Name  := 'Edt'+IntToStr(contcomp);
          edt.Parent:= Cat;
          edt.Tag   := DM.QryPButtonsidDatos.Value;
          edt.Width := ew;
          edt.Text  := '';
          edt.Top   := tp;
          edt.Left  := cl;

          tp := tp + eh + sp;
        end;

        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TMemo') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Memo') then
        begin
          mem       := TMemo.Create(Self);
          mem.Name  := 'Mem'+IntToStr(contcomp);
          mem.Parent:= Cat;
          mem.Tag   := DM.QryPButtonsidDatos.Value;
          mem.Width := mw;
          mem.Text  := '';
          mem.Top   := tp;
          mem.Left  := cl;

          tp := tp + mh + sp;
        end;

        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TCheckbox') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Checkbox') then
        begin
          chk       := TCheckBox.Create(Self);
          chk.Name  := 'Chk'+IntToStr(contcomp);
          chk.Parent:= Cat;
          chk.Tag   := DM.QryPButtonsidDatos.Value;
          chk.Width := cw;
          chk.Caption:='';
          chk.Top   := tp;
          chk.Left  := cl;

          tp := tp + ch + sp;
        end;

        //but := TButtonItem.Create(Cat.Categories.Add.Items);
        //but.Caption := DM.QryPButtons.FieldByName('DatosDetalle').AsString;

        DM.QryPButtons.Next;
      end;
      //Reajustar altura del panel
      LPanel.Height := tp + 25;

      DM.QryPGrupos.Next;
  end;
end;
Responder Con Cita
  #9  
Antiguo 19-10-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Yo creo que se podría "arreglar" la parte de los IF que crea los componentes. Es muy repetitivo y usando RTTI y la herencia de clases podría quedarse más sencillo.
Y si el número de controles diferentes crece, te saldrá más a cuente para no tener qui ir copiando y pegando ese trozo:

Así esto:

Código Delphi [-]
// Para cada Grupo, crear los botones...       for j := 0 to (DM.QryPButtons.RecordCount -1) do       begin           contcomp := contcomp + 1;           //Crear el label con la nota del campo a introducir dato           lbl       := TLabel.Create(Self);           lbl.Name  := 'lbl'+IntToStr(contcomp);           lbl.Parent:= Cat;           lbl.Caption:= Trim(DM.QryPButtonsDatosDetalle.Value);           lbl.Top   := tp;           lbl.Left  := ll;          // Crear el control segun su tipo y ubicarlo al lado del label         if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TEdit') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Edit') then         begin           edt       := TEdit.Create(Self);           edt.Name  := 'Edt'+IntToStr(contcomp);           edt.Parent:= Cat;           edt.Tag   := DM.QryPButtonsidDatos.Value;           edt.Width := ew;           edt.Text  := '';           edt.Top   := tp;           edt.Left  := cl;            tp := tp + eh + sp;         end;          if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TMemo') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Memo') then         begin           mem       := TMemo.Create(Self);           mem.Name  := 'Mem'+IntToStr(contcomp);           mem.Parent:= Cat;           mem.Tag   := DM.QryPButtonsidDatos.Value;           mem.Width := mw;           mem.Text  := '';           mem.Top   := tp;           mem.Left  := cl;            tp := tp + mh + sp;         end;          if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TCheckbox') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Checkbox') then         begin           chk       := TCheckBox.Create(Self);           chk.Name  := 'Chk'+IntToStr(contcomp);           chk.Parent:= Cat;           chk.Tag   := DM.QryPButtonsidDatos.Value;           chk.Width := cw;           chk.Caption:='';           chk.Top   := tp;           chk.Left  := cl;            tp := tp + ch + sp;         end;

Se podría quedar en algo como esto:

// Para cada Grupo, crear los botones...
for j := 0 to (DM.QryPButtons.RecordCount -1) do
begin
contcomp := contcomp + 1;
//Crear el label con la nota del campo a introducir dato
CreateComponent(TLabel,DM.QryPButtonsidDatos.Value, 5, ll, DM.QryPButtons.FieldByName('CaptionLabel').AsString);

var sDatosTipo:string := Trim(DM.QryPButtons.FieldByName('DatosTipo').AsString);

// Crear el control segun su tipo y ubicarlo al lado del label
if (sDatosTipo = 'TEdit') Or (sDatosTipo = 'Edit') then begin
// Crear un Edit
CreateComponent(TEdit,DM.QryPButtonsidDatos.Value, ew, cl, '');
tp := tp + eh + sp;
end;

if (sDatosTipo = 'TMemo') Or (sDatosTipo = 'Memo') then begin
// Crear un memo
CreateComponent(Tmemo,DM.QryPButtonsidDatos.Value, mw, cl, '');
tp := tp + mh + sp;
end;

if (sDatosTipo = 'TCheckbox') Or (sDatosTipo = 'Checkbox') then begin
// crear un checkbox
CreateComponent(TCheckbox, DM.QryPButtonsidDatos.Value, cw, cl, '');
tp := tp + ch + sp;
end;

//but := TButtonItem.Create(Cat.Categories.Add.Items);
//but.Caption := QryButtons.FieldByName('DatosDetalle').AsString;

QryButtons.Next;
end;

Y con el procedimiento definido así:

Código Delphi [-]
  procedure CreateComponent(CompClass:TComponentClass; iTag:integer; iWidth, iLeft:integer; sCaption:string);
  begin
    comp       := TWinControl(CompClass.Create(Self));       // Crear el componente (usando TWinControl) a partir de la clase
    comp.Name  := comp.ClassName + IntToStr(contcomp);
    comp.Parent:= Cat;
    comp.Tag   := iTag;
    comp.Width := iWidth;
    // comp.Text  := '';
    comp.Top   := tp;
    comp.Left  := iLeft;
    if IsPublishedProp(comp, 'Text') then                   // RTTI para propiedades published
      SetPropValue(comp, 'Text', String.Empty);
    if IsPublishedProp(comp, 'Caption') then
      SetPropValue(comp, 'Caption', sCaption);
  end;

Y hay que añadir System.TypInfo al USES.
la idea con esto es utilizar RTTI para poder crear ls diferentes componentes (diferentes clases) en un mismo punto. Herencia para las diferentes clases (TComponentClass) y RTTI para preguntar y asigar las propiedades published de los componentes.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #10  
Antiguo 19-10-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Yo creo que se podría "arreglar" la parte de los IF que crea los componentes. Es muy repetitivo y usando RTTI y la herencia de clases podría quedarse más sencillo.
Y si el número de controles diferentes crece, te saldrá más a cuente para no tener qui ir copiando y pegando ese trozo:

Así esto:

Código Delphi [-]
// Para cada Grupo, crear los botones...
      for j := 0 to (DM.QryPButtons.RecordCount -1) do
      begin
          contcomp := contcomp + 1;
          //Crear el label con la nota del campo a introducir dato
          lbl       := TLabel.Create(Self);
          lbl.Name  := 'lbl'+IntToStr(contcomp);
          lbl.Parent:= Cat;
          lbl.Caption:= Trim(DM.QryPButtonsDatosDetalle.Value);
          lbl.Top   := tp;
          lbl.Left  := ll;

        // Crear el control segun su tipo y ubicarlo al lado del label
        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TEdit') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Edit') then
        begin
          edt       := TEdit.Create(Self);
          edt.Name  := 'Edt'+IntToStr(contcomp);
          edt.Parent:= Cat;
          edt.Tag   := DM.QryPButtonsidDatos.Value;
          edt.Width := ew;
          edt.Text  := '';
          edt.Top   := tp;
          edt.Left  := cl;

          tp := tp + eh + sp;
        end;

        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TMemo') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Memo') then
        begin
          mem       := TMemo.Create(Self);
          mem.Name  := 'Mem'+IntToStr(contcomp);
          mem.Parent:= Cat;
          mem.Tag   := DM.QryPButtonsidDatos.Value;
          mem.Width := mw;
          mem.Text  := '';
          mem.Top   := tp;
          mem.Left  := cl;

          tp := tp + mh + sp;
        end;

        if (Trim(DM.QryPButtonsDatosTipo.Value) = 'TCheckbox') Or (Trim(DM.QryPButtonsDatosTipo.Value) = 'Checkbox') then
        begin
          chk       := TCheckBox.Create(Self);
          chk.Name  := 'Chk'+IntToStr(contcomp);
          chk.Parent:= Cat;
          chk.Tag   := DM.QryPButtonsidDatos.Value;
          chk.Width := cw;
          chk.Caption:='';
          chk.Top   := tp;
          chk.Left  := cl;

          tp := tp + ch + sp;
        end;

Se podría quedar en algo como esto:

Código Delphi [-]
// Para cada Grupo, crear los botones...
      for j := 0 to (DM.QryPButtons.RecordCount -1) do
      begin
          contcomp := contcomp + 1;
          //Crear el label con la nota del campo a introducir dato
          CreateComponent(TLabel,DM.QryPButtonsidDatos.Value, 5, ll, DM.QryPButtons.FieldByName('CaptionLabel').AsString);

        var sDatosTipo:string := Trim(DM.QryPButtons.FieldByName('DatosTipo').AsString);

        // Crear el control segun su tipo y ubicarlo al lado del label
        if (sDatosTipo = 'TEdit') Or (sDatosTipo = 'Edit') then begin
          // Crear un Edit
          CreateComponent(TEdit,DM.QryPButtonsidDatos.Value, ew, cl, '');
          tp := tp + eh + sp;
        end;

        if (sDatosTipo = 'TMemo') Or (sDatosTipo = 'Memo') then begin
          // Crear un memo
          CreateComponent(Tmemo,DM.QryPButtonsidDatos.Value, mw, cl, '');
          tp := tp + mh + sp;
        end;

        if (sDatosTipo = 'TCheckbox') Or (sDatosTipo = 'Checkbox') then begin
          // crear un checkbox
          CreateComponent(TCheckbox, DM.QryPButtonsidDatos.Value, cw, cl, '');
          tp := tp + ch + sp;
        end;

        //but := TButtonItem.Create(Cat.Categories.Add.Items);
        //but.Caption := QryButtons.FieldByName('DatosDetalle').AsString;

        QryButtons.Next;
      end;

Y con el procedimiento definido así:

Código Delphi [-]
  
procedure CreateComponent(CompClass:TComponentClass; iTag:integer; iWidth, iLeft:integer; sCaption:string);
  begin
    // Crear el componente (usando TWinControl) a partir de la clase
    comp       := TWinControl(CompClass.Create(Self));       
    comp.Name  := comp.ClassName + IntToStr(contcomp);
    comp.Parent:= Cat;
    comp.Tag   := iTag;
    comp.Width := iWidth;
    // comp.Text  := '';
    comp.Top   := tp;
    comp.Left  := iLeft;
    // RTTI para propiedades published
    if IsPublishedProp(comp, 'Text') then                  
      SetPropValue(comp, 'Text', String.Empty);
    if IsPublishedProp(comp, 'Caption') then
      SetPropValue(comp, 'Caption', sCaption);
  end;

Y hay que añadir System.TypInfo al USES.
la idea con esto es utilizar RTTI para poder crear los diferentes componentes (diferentes clases) en un mismo punto. Herencia para las diferentes clases (TComponentClass) y RTTI para preguntar y asigar las propiedades published de los componentes.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #11  
Antiguo 19-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
Ok probare. Gracias
Responder Con Cita
  #12  
Antiguo 20-10-2022
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Poder: 13
steelha Va por buen camino
Buenas, he copiado el codigo tal cual me indicas y agregado al use System.TypInfo. Pero primero tube que arreglar la linea donde dice
Código Delphi [-]
var sDatosTipo:string := Trim(DM.QryPButtons.FieldByName('DatosTipo').AsString);
me da error lo coloque como siempre hago
Código Delphi [-]
Procedure xxx
Var 
   StadosTipo : String;
begin
....
end;

Pero aun así consigo un error el el procedimiento de crear componente
[dcc32 Error] ufrmpacientes.pas(276): E2029 '(' expected but ':=' found

Código Delphi [-]
procedure TfrmPacientes.CreateComponent(CompClass: TComponentClass; iTag, iWidth, iLeft: integer; sCaption: string);
begin
    comp  := TWinControl(CompClass.Create(Self));
    comp.Name  := comp.ClassName + IntToStr(contcomp);
    comp.Parent:= Cat;
    comp.Tag   := iTag;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda componente cmm07 Varios 6 01-12-2008 17:42:20
Ayuda con un componente. Lucciano Conexión con bases de datos 2 12-04-2006 18:57:04
Ayuda con componente CelestronFan Varios 6 09-10-2005 18:39:40
Ayuda con componente raco Internet 2 17-02-2005 02:59:50
Ayuda con componente animal Varios 2 16-02-2005 08:49:47


La franja horaria es GMT +2. Ahora son las 00:53:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi