Hola rotsen26.
Otra opción puede ser usar el evento
OnDataChange del
TDataSource:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource.OnDataChange:= DataChange;
DBGrid1.DataSource.DataSet.Open;
end;
procedure TForm1.DataChange(Sender: TObject; Field: TField);
begin
if DBGrid1.DataSource.DataSet.FieldByName('estatus').AsString = 'RES' then
Panel1.Color:= clRed
else
Panel1.Color:= clGreen;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DBGrid1.DataSource.OnDataChange:= nil;
end;
Asigno el evento por código para darle mayor claridad al ejemplo. Pero lo podés hacer desde el
Object Inspector, en tiempo de diseño, diréctamente desde la pestaña
Events del componente
TDataSource relacionado al DBGrid.
Saludos.