Memberi warna record aktif pada TDBGrid

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
    TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
     with TCustomDBGridCracker(Sender) do
     if DataLink.ActiveRecord = Row - 1 then
          Canvas.Brush.Color := clRed
     else
          Canvas.Brush.Color := clWhite;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column,      State);
end;