Как выделить цветом текущую строку в TDBGrid

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:

TRect;

  Field: TField; State: TGridDrawState);

begin

  if gdFocused in State then

  with (Sender as TDBGrid).Canvas do

  begin

    Brush.Color := clRed;

    FillRect(Rect);

    TextOut(Rect.Left, Rect.Top, Field.AsString);

  end;

end;

 

©Drkb::03051

       

Взято с http://delphiworld.narod.ru