VCL.TDBGrid - CustomDraw für selectierte Row?

[Delphi.Narium]

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;