Color de Componentes Según estado del DataSet

[Neeruu]

Hola a todos, y muchas gracias por sus respuestas.

ggram2: El tema de las grillas no lo tengo pensando todavía, porque necesitaría que se cambie de color solo la el registro que se esta editando... y no toda la grilla.
Gracias por responder.


José Luis Garcí:
Voy a probar el panel que me sugieres, después te comento como me va con la prueba.


Yo había pensando algo así:

Código Delphi [-]
procedure TForm.DSMainStateChange(Sender: TObject);
i:Integer;
myColor:TColor;
begin
 
  Case DSMain.DataSet.State of
    dsInactive: myColor := clGray;
    dsBrowse  : myColor := clWindow;
    dsEdit    : myColor := $00B7DBFF;
    dsInsert  : myColor := $00C5DEC9;
  end;

  for I := 0 to Form1.ComponentCount - 1 do
    begin
      if Form1.Components[i] is TcxDBTextEdit then
          TcxDBTextEdit(Form1.Components[i]).Style.Color := myColor
      else
      if Form1.Components[i] is TcxDBLookupComboBox then
        TcxDBLookupComboBox(Form1.Components[i]).Style.Color := myColor
      else
      if Form1.Components[i] is TcxDBMemo then
        TcxDBMemo(Form1.Components[i]).Style.Color := myColor;
    end;
end;

Lo probe y hace lo que necesito...

De nuevo gracias a las respuestas...

Saluda Atte Neeruu!!!