Funcion cambiar propiedades componente(variable)
 

Saludos,

A ver si alguien me puede dar una mano con una funcion que estoy intentando hacer que consiste en lo siguiente:

Quiero a varios componentes de varios tipos Ej:
Edit1 : TEdit;
Edit2 : TEdit;
Edit...X : TEdit;
Image1 : TImage;
Image2 : T Image;
Image...X : TImage;

cambiar sus propiedades pero sin tener que llamar cada componente uno por uno, sino desde una variable, por ejemplo:

Código Delphi [-]
Function SeletItem(vVal: Integer): Variant;
Var
vEdit : TEdit;
vImage : TImage;
vNomEdit, vNomImg : String;
begin

For I:=1 To 10 Do
Begin

  vNomEdit := 'Edit'+IntToStr(I);
  vNomImg := 'Image'+IntToStr(I);
  xxxx // Aqui no se como pasar la variable al componente TEdit y TImage
  vEdit.Color := clWindow;
  vImage.Visible := False;

End;

  vNomEdit := 'Edit'+IntToStr(vVal);
  vNomImg := 'Image'+IntToStr(vVal);
  xxxx //  .....
  vEdit.Color := clRed;
  vImage.Visible := True;
....

o algo asi.

Nota: Lei por ahi algo parecido con una funcion "FindComponet" para asignar el nombre del componente pero no me funciona dentro de la funcion.

quiza esto te pueda servir como una ayuda
lo utilizo para deshabilitar todos los edits y combobox que tenga en el form

Código Delphi [-]
 
      for i := 0 to (Self.ComponentCount - 1) do  begin
        if (Self.Components[i] is TDBEdit) or (Self.Components[i] is TComboBox) then begin
          TEdit(Self.Components[i]).Enabled := False;
        end;

Hola

Código Delphi [-]
Procedure Cambio;
var
     i : Integer;
  comp : TComponent;
begin
  for i := 1 to 10 do begin
  comp := FindComponent('Edit' + IntToStr(i)); 
  TEdit(comp).Color:= clRed;
end;

Saludos

umm... las propiedades "Self.ComponentCount" no me funcionan dentro de una funcion..

Gracias Caral, con un Procedure ya la habia probado y me funciona la parte de cambiarlo todo, pero necesito que sea con una funcion para pasar el numero del que quiero dejar una propiedad diferente a los demas.

Hola

Código Delphi [-]
Procedure Cambio;
var
   dif,  i : Integer;
  comp : TComponent;
begin
  Dif:= 5; // por ejemplo
  for i := 1 to 10 do begin
  comp := FindComponent('Edit' + IntToStr(i));
  If TEdit(comp).text <> IntToStr(Dif) then
  begin 
  TEdit(comp).Color:= clRed;
  end;
end;

Saludos

Edito: Corregido.:p

Hola. Puedes hacer un procedimiento con los parámetros que necesites tener en cuenta y/o cambiar

Código Delphi [-]
procedure CambiarPropiedad(Contenedor: TForm; NumeroElemento: Integer; NuevoColor: TColor, Activar:Boolean);
var i:Integer;
begin
  for i := 0 to (Contenedor.ComponentCount - 1) do  
  begin         
    if (Contenedor.Components[i] is TEdit)
    then begin
      if TEdit(Contenedor.Components[i]).Name = 'Edit+IntToStr(NumeroElemento)
      then begin       
        TEdit(Contenedor.Components[i]).Color := NuevoColor;         
        TEdit(Contenedor.Components[i]).Enabled := Activar;         
      end;
    end;
  end;
end;

Esto está bien para 2 o 3 clases de componentes, pero si son 6 o mas clases de componentes que quieres cambiar sus propiedades,
es mejor aprovecharse de la RTTI (esa gran desconocida)

Código Delphi [-]
procedure CambiarPropiedad(Contenedor: TForm; Clase: String; NuevoColor: TColor; Activar:Boolean);
var i:Integer;
PropInfo: PPropInfo;
begin
  for i := 0 to (Contenedor.ComponentCount - 1) do  
  begin         
      if Contenedor.Components[i].ClassNameIs(Clase)
      then begin
// 2.-Buscamos si el componente tiene la propiedad 'Color'
       PropInfo := TypInfo.GetPropInfo(Contenedor.Components[i].ClassInfo, 'Color') ;
       if Assigned(PropInfo)
       then begin
// 3.-Damos el valor que queremos a la propiedad 'Color'
         TypInfo.SetOrdProp(Contenedor.Components[i], PropInfo, LongInt(NuevoColor));
// 4.-Buscamos si el componente tiene la propiedad 'Enabled'
         PropInfo := TypInfo.GetPropInfo(Contenedor.Components[i].ClassInfo, 'Enabled') ;
         if Assigned(PropInfo) then
// 5.-Damos el valor que queremos a la propiedad 'Enabled'
           TypInfo.SetOrdProp(Contenedor.Components[i], PropInfo, LongInt(Activar));
       end;
    end;
  end;
end;

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á.