Aktuelle Zeile in StringGrid farblich hervorheben

[CalganX]

Ja, habe ich mir angesehen. Sieht so aus:

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

end;

Hat jemand vielleicht einen Source?

Chris