"Macros" como en Clipper ?

[jachguate]

Para hacer algo como:

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);
    //etc.
  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.

[[gluglu]]

Gracias tanto a maeyanes como a jachguate.

He investigado un poco en ese tema (absolutamente nuevo para mi) de RTTI. Uff ! hay muchísima información. Así que me llevará un "cierto" ratito investigar este campo nuevo e ir aprendiendo cada vez más cosas !

Gracias de nuevo por la versión "simplificada" de jachguate que seguramente es lo más inmediato que vengo buscando, pero no obstante lo de RTTI hay que mirarlo !

Saludos

[roman]

Empezado por jachguate

Aunque yo prefiero otras implementaciones

Yo también. Leyendo por encima lo que se requiere yo optaría como una primera idea por usar un TFrame para las fichas. En él se colocan las componentes con el número de habitación, nombre del cliente, etc.

En la clase del frame se implementa un método para establecer el color:

Código Delphi [-]
case Estado of
  UnEstado: Color := clGreen;
  OtroEstado: Color := clBlue;
  AunOtroEstado: Color := clRed;

  etc.
end;

Incluso, la idea de maeyanes me parece más que suficiente. En su código, TTipoDeComponenteAModificar sería la clase del TFrame.

Desaconsejaría el uso de FindComponent pues, como ya he dicho en otras ocasiones, FindComponent es de por sí un ciclo que recorre las componentes del formulario hasta encontrar la del nombre indicado, de manera que se estaría haciendo este ciclo setentaicinco veces.

EDITO

Y, en resumen, desaconsejaría también RTTI. Tanto con éste como con FindComponent, basas tu código en los elementos de la interfaz de usuario y cualquier cambio que quieras hacerle a ésta te dará dolores de cabeza por los cambios que tendrás que hacer en otras partes del código.

// Saludos