Para hacer algo como:
Cita:
Empezado por gluglu
Por ejemplo : "Ficha1".Color := ...., "Ficha2".Color := ...., y así sucesivamente.
|
Podes hacer:
Código Delphi
[-]
var
i : integer;
begin
for i := 1 to 75 do
begin
TWinControl(FindComponent('Label' + intToStr(i))).Color := ColorHabitacion(i);
TWinControl(FindComponent('Shape' + intToStr(i))).Color := ColorHabitacion(i);
end;
end;
Aunque yo prefiero otras implementaciones... esto si que es posible en delphi.
Hasta luego.
pd. He casteado de memoria a TWinControl, supongo que la propiedad Color nace alli... si me equivoco, ya será tu tarea buscar de donde viene o castear a la clase final de cada componente.