Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

DBGRID - ROWSELECT SEM USAR O DGROWSELET

type
  {expose private & protected properties & methods}
  TFriendly=class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: 
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  {cast DBGrid to a unit friendly class thus exposing all it private bits!}
  with TFriendly(DBGrid1) do
  begin
  {
   Get active record within grids TDataLink. The active record will be the
   current record in the dataset. Check against Row that we are trying to
   Draw, -1 to offset the column headings within grid.
  }
  if TDataLink(DataLink).ActiveRecord=Row-1
  then
    begin
    with Canvas do
      begin
      {set grids canvas to win highlight colour}
      Brush.Color:=clHighlight;
      {now redraw the cell, but highlighted}
      DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
    end;
  end;
end;