Memberi Warna record aktif pada TDBGrid

Bagi anda yang ingin memberikan warna berbeda pada record aktif TBDGrid anda dapat menambahkannya dengan beberapa baris syntax 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;

semoga bermanfaat

Referensi http://www.klik-kanan.com