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

Материал из DRKB

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

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;


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