dbgrideh只让某一列可编辑，其他列不可编辑

Question

dbgrideh只让某一列可编辑，其他列不可编辑

Answer 1

每一列都有属性的，自己查查吧
或者当鼠标点击改列时，整个grid置为readonly，到其他列，再改回去

Answer 2

to楼上
Columns[0].ReadOnly := True;
这样是可以，但这是让之只读，双击还是进入类似编辑状态（虽然不能改）。

Answer 3

  
Options := DBGrid1.Options;
  if (DBGrid1.SelectedIndex = 1) then
    Options := Options - [dgEditing]
  else
    Options := Options + [dgEditing];
  if (DBGrid1.Options <> Options) then
    DBGrid1.Options := Options;

Answer 4

procedure TfrmCaseInf.DBGrid1ColEnter(Sender: TObject);
var
  Options: TDBGridOptions; 
begin
  Options := DBGrid1.Options;
  if (DBGrid1.SelectedIndex = 1) then
    Options := Options - [dgEditing]
  else
    Options := Options + [dgEditing];
  if (DBGrid1.Options <> Options) then
    DBGrid1.Options := Options;
end;