Memberi warna record aktif pada TDBGrid di delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

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); //coba Disimpan  paling atas sebelum TForm1 = class(TForm)
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;

Semoga bermanfaat...