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