要选择一行可以把dgRowSelect设为True,其它的就不知道了
关注中

解决方案 »

  1.   

    选择任一行:
    在dbgrid的options选中dgRowSelect=true选择任一列:
    procedure TForm1.DBGrid1TitleClick(Column: TColumn);
    var
      i: Integer;
    begin
      for i:=0 to DBGrid1.Columns.Count-1 do
        DBGrid1.Columns[i].Color:=DBGrid1.Color;//消去以前选中列的颜色
      Column.Color:=clred;  //你要的颜色
    end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
    var
      i: Integer;
    begin
      for i:=0 to DBGrid1.Columns.Count-1 do
        DBGrid1.Columns[i].Color:=DBGrid1.Color;//消去以前选中列的颜色
    end;