dbgrid怎样实现指针指向的行高亮！

Question

怎样实现指针指向的行高亮！   比如说输入一个 字符  点击查询按钮  DBgrid指针指向的一行 颜色变成蓝色！

Answer 1

procedure Tfrm_Main.Grid_DataDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  aRect:TRect ;
begin
   with TStringGrid(Sender) do
    begin      Canvas.Brush.Color := clGreen ;
      Canvas.FillRect(Rect);      ARect := Rect;
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, ARECT,
        DT_SINGLELINE or DT_VCENTER);    end;
end;

Answer 2

设置options的dgRowSelect和dgAlwaysShowSelection为True

Answer 3

用dbgrideh吧还有很多新功能呢