Busqueda de Componente y propiedades

[rruffino]

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

[ecfisa]

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

[Soa Pelaez]

Otra manera podría ser.

Empezado por Neftali

Tal vez esta entrada pueda ayudar: "Modificar propiedades de controles en ejecución utilizando RTTI".

La ventaja de hacerlo con RTTI es que podría llamar a esta función:

Código Delphi [-]

// Otros ejemplos 
SetPropAsString(Components[i], 'Left', '10'); 
SetPropAsString(Components[i], 'Color', 'clRed');

Sin preocuparte del Tipo de control (TEdit, TCheckbox,...). Si tiene la propiedad y se llama así la cambiará.

[ecfisa]

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