diseño de cancha

[ecfisa]

Hola.

A ver...

Supongamos que tenes diez canchas y vas a disponer de diez paneles para representar el estado de cada una. Le vamos a dar por nombres: pnlCancha1, pnlCancha2, ..., pnlCancha10.

Entonces un modo de pintar las canchas reservadas de color rojo es:

Código Delphi [-]
...
var
  P: TComponent;
begin
  tuQuery.Close;
  tuQuery.SQL.Text := 'AQUI LA CONSULTA QUE ARROJARÁ LOS ESTADOS DE LAS DIEZ CANCHAS';
  tuQuery.Open;
  while not tuQuery.Eof do
  begin
    P := FindComponent('pnlCancha' + IntToStr(tuQuery.FieldByName('ID_CANCHA').AsInteger));
   if Assigned(P) and (tuQuery.FieldByName('ESTADO').AsString = 'R') then
      TPanel(P).Color := clRed;
    tuQuery.Next;
  end;
  tuQuery.Close;
end;

Es claro que el nombre dado a los paneles debe estar compuesto por: Un nombre a tu antojo (en el ejemplo "pnlCancha") más el ID de la cancha a la que representa.

Ese código definitivamente pintará de rojo cada panel que represente a una cancha cuyo estado sea "reservado". De no ser así reformulá el código SQL de tu consulta.

Saludos