Colorear una fila seleccionada...

[ecfisa]

Hola BlueSteel.

Si te entendí bién, este código debería hacer lo que buscas. Lo asigné al evento OnClick de un TButton, pero vos podés ponerlo en el evento
que te convenga para el caso.
Hice en el DataSet un campo calculado que bauticé: Q_IngresoGralPintarGrid (en honor al DataSet) y usé el editor de columnas del DBGrid
para evitar visualizarlo. Un TEdit recibe el dato que se le pasará al Locate en el evento OnClick del TButton.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if AQ_IngresoGralPintarGrid.Value then
  begin
    DBGrid1.Canvas.brush.Color:= clBlue;
    DBGrid1.Canvas.Font.Color:= clWhite;
  end
  else
  begin
    DBGrid1.Canvas.Brush.Color:= clWindow;
    DBGrid1.Canvas.Font.Color:= clBlack;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  AQ_IngresoGral.Locate('NOMBRE', Edit1.Text, []);
  AQ_IngresoGral.Edit;
  AQ_IngresoGralPintarGrid.Value:= True;
end;

El código deja pintada la fila en que te ubicaste con Locate hasta que realices un nuevo posicionamiento, sin que haya necesidad de darle
el foco al TDBGrid.

Un saludo.

[[BlueSteel]]

Excelente....

Era justo lo que estaba buscando.... te confieso que al principio no entendí mucho de donde crear el campo calculado, asi que me puse a instrusear... y es muy facil...

Y como tengo dos DBGrids en donde se muestran los datos de ingresos por la puerta actual y los ingresos que se realizan por todas las puertas, tube que realizar esto para que me pintará el dato de la puerta actual solo si ha ingresado por ahí

Código Delphi [-]
If Datos.AQ_Ingreso.Locate('Tar_CodigoBarra',StrToInt(sFol.Text),[]) Then
   Begin
           Datos.AQ_Ingreso.Edit;
           Datos.AQ_IngresoPintaGrid.Value:= True;
   End;

Gracias

Salu2