Du möchtest wissen, welche ID der Satz hat, auf dem der Datensatzzeiger (verarbeitungstechnisch) steht. Im Grid links der markierte Satz.
Im AfterScroll die ID (oder was auch immer) einer Variabel zuweisen und dann diese Variabel im OnDrawEreignis vergleichen.
Delphi-Quellcode:
procedure TForm1.AfterScroll(DataSet: TDataSet);
begin
fCurrentID := DataSet.FieldByName('ID').AsInteger;
end;
procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (fCurrentID = Column.Field.AsInteger) then begin
Grid.Canvas.Brush.Color := clFuchsia;
end;
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;