怎么加亮dbgird控件的任意一行？

Question

怎么加亮dbgird控件的任意一行？
现在有一个dbgrid控件和一个button按钮，dbgrid中有10行数据。
我要怎么在button的clicked事件中写代码，才能实现不通过点击dbgrid控件的
某一行而加亮他？
我试过dbgrdi1.selectindex:=2;  //不行，请高手指点

Answer 1

加亮是什么意思，
如果是选中 可以用：选把标签移动要加亮的行
然后 DBGrid1.SelectedRows.CurrentRowSelected :=True;如果是视觉上的加亮，可以设个模块变量 m_Rigth :Booleanprocedure TFmChatRecord.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with DBGrid1 do
  begin 
    if m_Right and Column.Fields['asdf'] ='adsf'(某行) then
    begin
      Canvas.Font.Color :=clBlack;
      Canvas.Brush.Color :=clRed;
    end
    else
    begin
      Canvas.Font.Color :=clBlack;
      Canvas.Brush.Color :=clinfobk;
    end;
    DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

Answer 2

to shuszj(想见你)
你写的乱七八糟一大堆，没有用
 to pdbird(老巢) 
你晚上怎么不上QQ？