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;

[Jasocul]

In den Options für TDBGrid gibt es dgAlwaysShowSelection. Das sollte normalerweise ausreichen.

[himitsu]

Genau, ist wirklich keiner Selektiert/Fokusiert, oder ist das nur nicht sichtbar?
Links im Grid siehst du eine Index-Spalte, wo es einen Pfeil gibt, beim fokusierten/aktiven Datensatz.

Standard leider nur sichtbar, wenn sich der Fokus im Grid befindet.
Lösung siehe Jasocul. (selbstmalen ala Delphi.Narium, ist da nicht unbedingt nötig)

[Ralphetto]

Ich bin aber auch wirklich dämlich:

dgAlwaysShowSelection macht genau, was es soll. Vielen, vielen Dank!

Ralph