Busqueda de Componente y propiedades
 

Hola gente, buen día...
Tengo en el formulario un panel con varios checkbox, y para no escribir mucho código, pensaba en localizarlos a traves del nombre de los mismos y ahi cambiar algunas propiedades, principalmente la propiedad Checked...
Buscando he encontrado varios ejemplos y he implementado el que presento a continuación..

Código Delphi [-]
var
  Butaca: TComponent;
  nombre: string;
  i: integer;
begin
  for i:=0 to 10 do
    begin
      nombre:='F1_' ;
      butaca:=FindComponent(nombre);
      if Assigned(butaca)then
        begin
          if (butaca is TCheckBox) then
            TCheckBox(butaca).Checked:=true;
        end;
    end;

El problema que tengo es que cuando verifica si esta asignado, la condición da falso, por lo que no puedo cambiar el estado del Checked...si por el contrario saco la condición donde verifica si está asignado, al cambiar la propiedad de Checked da error y no lo hace, error como si el comprobante no estuviese referenciado.. a mi entender es como si el FindComponent no encuentra el componente...
Desde ya agradezco cualquier comentario y/o sugerencia.
Saludos!!!

No lo entiendo
 

Hola, tengo dudas.

¿cuando se ejecuta ese código?
¿para que sirve el for?

Por lo que veo le asignas directamente el nombre del componente que quieres buscar, por lo que entiendo que ya sabes que ese nombre que pasas corresponde a un checkbox, no te haría falta comprobarlo después.

También puedes probar con:

Código Delphi [-]
 TCheckbox(FindComponent('F1_')).Checked:=true;

Así te evitarías tener que crear el TComponent y asignarlo.

Saludos.

Fe de erratas....
 

Bueno, quizas el sueño me juega mala pasada....

Código Delphi [-]
Butaca:TComponent.Crate(self);

la solución al problema..... ahora tengo en una tabla los nombres a buscar y ahi si no me los encuentra

Código Delphi [-]
nombre:=Tabla.FieldValues['nombre'];

Ahi si ya no entiendo por que no lo encuentra....

Respuesta
 

Gracias ElDioni por la respuesta, en realidad el nombre lo compongo de la siguiente manera:

Código Delphi [-]
  for i:=0 to 10 do
    begin
      nombre:='F1_' ;
      butaca:=FindComponent(nombre + InttoStr(i));
  ... 
  ...

para que me genere y busque los 10 nombres

Hola.

Sólo un detalle, en ese caso la comprobación:

Código Delphi [-]
  if Assigned(butaca)then  // <-
        begin
          if (butaca is TCheckBox) then

es innecesaria.

Dado que el operador is devuelve True si el objeto evaluado pertenece a la clase o es descendiente de ella y False de otro modo (incluyendo también a nil), podes escribir:

Código Delphi [-]
...
 var
  i: Integer;
  Butaca: TComponent;
begin
  for i := 0 to ComponentCount-1 do
  begin
    Butaca := FindComponent('F1_'+IntToStr(i+1));  // +1 si los nombres fuesen: F1_1, ..., F1_10
    if Butaca is TCheckBox then
      TCheckBox(Butaca).Checked := True;
  end;
end;

Lo que no alcanzo a comprender bién es la mecánica de la obtención del nombre desde la tabla, pero en principio podrías hacer uso del método Locate.

Saludos :)

Otra manera podría ser.

Hola.

Como menciona Soa Pelaez, también se puede usar RTTI. Con la salvedad que debe verificarse si la propiedad sobre la que se va a aplicar el valor existe en el componente actual para evitar excepciones.

Código Delphi [-]
...
implementation

uses TypInfo;

procedure TForm1.CheckOnOff(const aChecked: Boolean);
var
  i: Integer;
begin
  for i := 0 to ComponentCount-1 do
    if Assigned(GetPropInfo(Components[i].ClassInfo, 'Checked')) then
      SetOrdProp(Components[i], 'Checked', Integer(aChecked) );
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckOnOff(not CheckBox1.Checked);
end;

Saludos :)