Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как изменить шрифт определенной строки в TDBGrid?

01.01.2007

Для этого надо воспользоваться событием OnDrawDataCell в dbgrid.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
 
Field: TField; State: TGridDrawState);
begin
 
// If the record's CustNo is 4711 draw the entire row with a
 
// line through it. (set the font style to strike out)
 
if (Sender as TDBGrid).DataSource.DataSet.FieldByName('CustNo').AsString =
   
'4711' then
   
with (Sender as TDBGrid).Canvas do
     
begin
       
FillRect(Rect);
       
// Set the font style to StrikeOut
       
Font.Style := Font.Style + [fsStrikeOut];
       
// Draw the cell right aligned for floats + offset
       
if (Field.DataType = ftFloat) then
         
TextOut(Rect.Right - TextWidth(Field.AsString) - 3,
           
Rect.Top + 3, Field.AsString)
       
// Otherwise draw the cell left aligned + offset
       
else
         
TextOut(Rect.Left + 2, Rect.Top + 3, Field.AsString);
     
end;
end;

Замечание: Вышеприведённый код использует таблицу "CUSTOMER.DB", TDBGrid, TDataSource

и TTable

Взято из https://forum.sources.ru