Manejar Componetes

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

Utilizando FindComponent puedes obtener un componente a partir de su nombre; En la ayuda de Delphi tienes el siguiente ejemplo:

Código Delphi [-]
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 dobegin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;

Es casi idéntico al tuyo, simplemente que trabaja con TEdit, y la propiedad que modifica es otra, pero vamos es casi "pastado". Pruébalo y si tienes problemas ya dirás...

[marcoszorrilla]

Aquí tienes otro ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 Var
 nConta:Integer;
 begin
   for nConta:=0 to form1.ComponentCount -1 do
   begin
     if form1.Components[nConta] is  TShape then
     begin
        (Components[nConta] as TShape).brush.Color:=ClGreen;
     end
   end;
 end;

Un Saludo.

[roman]

Recomiendo el método de Marcos ya que FindComponent usa él mismo un ciclo que recorre las componentes hasta encontrar una con el nombre indicado de manera que se estaráa repitiendo el mismo ciclo por cada iteración del ciclo for externo.

Lo único es que

(Components[nConta] as TShape).brush.Color:=ClGreen;

quedaría un poco mejor así:

TShape(Components[nConta]).brush.Color:=ClGreen;

ya que el operador as invlucra una llamada implícita al operador is innecesaria ya que se hace previamente.

// Saludos

[marcoszorrilla]

TShape(Components[nConta]).brush.Color:=ClGreen;

Realmente es lo que estaba buscando, pero estoy "in work time" y carente de soporte literario y no me salía, por lo que lo dejé como quedó, es decir regular.

Un Saludo.