Delphi - Cambiar color TPanel según valor de campo

   
Vista:

Cambiar color TPanel según valor de campo

Publicado por darken (4 intervenciones) el 17/08/2009 16:30:12
Hola programadores!!
Mi problema es el siguiente: Tengo 5 Tpanel (box1,box2...box 5) que corresponden a 5 registros a los que quiero cambiar el color según el valor del campo ('estado') en tiempo de ejecución. Recorro la BD y a cada registro le paso la función estadobox(box) con return = al color...pero cómo recorro los Tpanel?? algo así como:
Panel(box(x)).color:=estadobox(x)
Panel1.color:=estadobox(1)
Panel2.color:=estadobox(2)...etc

No sé si me he explicado....Gracias por vuestra ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar color TPanel según valor de campo

Publicado por E.T. (1106 intervenciones) el 17/08/2009 20:30:55
Es algo relativamente sencillo

for i:=1 to 5 do
if TPanel(FindComponent('box'+inttostr(i))) <> nil then
TPanel(FindComponent('panel'+inttostr(i))).Color := random(50000);
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar