Acceder a objetos creados en tiempo de ejecución

[[newtron]]

Hola y gracias por vuestras respuestas.


Los objetos que estoy creando son unos componentes propios que tienen un "TImage" y un "Caption" dentro de un recuadro para poder mostrar botones con imágenes y un texto con colores configurables, etc.


Estuve mirando el comando "FindComponent" pero no me funcionaba, no sé si hay algún uses que no estaba poniendo o cual era el problema pero no pude llegar a utilizarlo. ¿Algún ejemplo tontuno y/o hay que usar algún uses en especial?


Gracias y un saludo

Edito: Ok, ya veo como es la sintaxis. Pruebo y si tengo algún problema ya comento.
Gracias.

[[kuan-yiu]]

¿Cómo los creas? ¿Puedes poner ese trozo de código?

[[newtron]]

Claro, te lo paso aunque le he dado otra solución porque, como siempre, tengo el tiempo escaso y le estaba dando muchas vueltas a este tema.

Código Delphi [-]
procedure TFormPrincipal.MuestraArticulos(Grupo: String);
var
  Boton: TNTSB2;
  TextoEnIdioma: String;
  Posicion,Aumento: SmallInt;
  TopP,LeftP: SmallInt;
  ImagenBMP: TBitMap;
begin
  TopP:=3;
  LeftP:=3;
  if Debughook=0 then
    Aumento:=2
  else
    Aumento:=1;
  ScrollBox3:=TScrollBox.Create(nil);
  ScrollBox3.Left    := ScrollBox2.Left;
  ScrollBox3.Top     := ScrollBox2.Top;
  ScrollBox3.Height  := ScrollBox2.Height;
  ScrollBox3.Width   := ScrollBox2.Width;
  ScrollBox3.Parent  := FormPrincipal;
  FormMain.EDBQuery1.SQL.Clear;
  FormMain.EDBQuery1.SQL.Add('SELECT FAMILIA,CODIGO,DESCRIPCIO,IDIOMA1 FROM ARTICULOS A LEFT JOIN GRUPART B ON A.CODIGO=B.ARTICULO WHERE A.CODIGO='+QuotedStr(Grupo)+' ORDER BY B.POSICION');
  FormMain.EDBQuery1.ExecSQL;
  while not FormMain.EDBQuery1.Eof do begin
    if DlgPropiedades.Idioma=1 then begin
      TextoEnIdioma:=FormMain.EDBQuery1.FieldByName('DESCRIPCIO').AsString;
    end else if DlgPropiedades.Idioma=2 then begin
      TextoEnIdioma:=FormMain.EDBQuery1.FieldByName('IDIOMA1').AsString;
    end;
    // Creo botones artículos
    Boton:=TNTSB2.Create(nil);
    Boton.Name       := 'A'+FormMain.EdbQuery1.FieldByName('FAMILIA').AsString+FormMain.EdbQuery1.FieldByName('CODIGO').AsSt  ring;
    Boton.Tipo       := tTituloSimple;
    Boton.Caption    := TextoEnIdioma;
    Boton.Color      := clWhite;
    Boton.Parent     := ScrollBox3;
    Boton.Top        := TopP;
    Boton.Left       := LeftP;
    Boton.Width      := Trunc(134*Aumento);
    Boton.Height     := Trunc(162*Aumento);
    Boton.NTValor    := 'A*'+FormMain.EdbQuery1.FieldByName('FAMILIA').AsString+FormMain.EdbQuery1.FieldByName('CODIGO').AsS  tring;
    Boton.OnClick    := FormTomarLlevar.BotonPulsado;
    LeftP:= LeftP + Boton.Width  +3;
    if LeftP> (Boton.Width*2)+20 then begin
      TopP:= TopP + Boton.Height +3;
      LeftP:=3;
    end;
    Posicion:=DlgPropiedades.ListaArticulos.IndexOf(FormMain.EdbQuery1.FieldByName('FAMILIA').AsString+F  ormMain.EdbQuery1.FieldByName('CODIGO').AsString);
    DlgPropiedades.ImageListArticulos.GetBitmap(Posicion,Boton.Glyph);
    FormMain.EDBQuery1.Next;
  end;
  ScrollBox2.Visible := fALSE;
  ScrollBox3.BringToFront;
  PanelLadoD.BringToFront;
end;

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

Se me ocurre que puede ser por el tema del Owner.
Segun la ayuda componentcount:
Indicates the number of components owned by the component.


Si estás creando los componentes sin Owner, el ComponentCount/Components[i] no los encontrará. Y lo mismo pasará si estás utilizando el ComponentCount/Components[i]sobre un contenedor al que no pertenecen.

Por otro lado yo recomiendo por temas de optimización (y para más seguridad) que en lugar de utilizar FindComponent, crees una lista personal (TList/TStringist/TObjectList/TList<Tcomponent>,...) para almacenar, gestionar, buscar,... los componentes creados en runtime.

ACTUALIZACIÓN:
Ahora que veo el código, se me ocurren 2 opciones:

(1) Crear los componentes con un Owner.
(2) Añadirlos a una lista propia para gestionarlo.

[[newtron]]

Germán.


Efectivamente he tirado por la opción de crear una lista para guardar los componentes. De una forma o de otra viene bien conocer el problema por si tengo que "recular" en el manejo de todo esto y volver a la búsqueda de los componentes creados.


Gracias a todos y un saludo.

[[kuan-yiu]]

Yo te recomiendo que huyas de esto:

Código Delphi [-]
    Boton:=TNTSB2.Create(nil);    // Esto no
    Boton:=TNTSB2.Create(Padre);  // Mejor esto. Padre sería lo que estimes oportuno: tPanel, tForm, Sender...

Te evita un montón de problemas con el manejo de la memoria, con el borrado...

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

Yo lo he usado muchas veces y por ejemplo, utilizar una TStringList ordenada, con el nombre de los componentes, mejora infinitamente la velocidad (más cuanto mayor sea el número de componentes) ya que la búsqueda en una lista ordenada es dicotómica, en lugar de secuencial.

[Casimiro Noteví]

También puedes asignar a la propiedad "Tag" del botón el código del artículo, así cuando se pulse un botón no hay que buscar nada, solamente tomar su tag y ya tienes el código del artículo.

[ecfisa]

Hola.

Y, si usas la clase TStringList como te sugiere Neftali, mediante el método AddObject puedes almacenar tanto el nombre del objeto como el objeto mismo.

Código Delphi [-]
...
   Image := TImage.Create;
   //...
   Image.Name := Format('Image%d', [i]);
   Lista.AddObject(Image.Name, TObject(Image));
...

Saludos