Delphi 12 - DBGrid RowSelect - Marker erhalten

[Delphi.Narium]

Im Objektinspektor beim DBGrid das Ereignis OnDrawColumnCell zuweisen:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
begin
  // Aktiven Datensatz prüfen
  if DBGrid1.DataSource.DataSet.RecNo = DBGrid1.Row then
    DBGrid1Canvas.Brush.Color := clSkyBlue // Deine Wunschfarbe
  else
    DBGrid1.Canvas.Brush.Color := clWhite;
  // Standard Zeichnung aufrufen
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;