关于DBGRID的只读属性问题。解决了就给分

Question

锁定第三列：
DataGrid1.Columns(2).Locked = True

Answer 1

可以通过Options属性设置也可以，在光标移动的事件中判断
如果列名为指定列，则Options设为可修改的

Answer 2

我窗体一创建的时候DBGrid.readOnly:=True，我要通过窗体上的一个“编辑”按钮的ONClick事件来实现DBGrid的某些字段为可以写（即：dbgrid1.Columns[1].ReadOnly := False），这样没有办法实现，你们可以试试看，我的代码如下：
procedure Tbianji.Button4Click(Sender: TObject);
begin
  DBGrid1.Columns[0].ReadOnly:=true;;
  DBGrid1.Columns[1].ReadOnly:=true;;
  DBGrid1.Columns[2].ReadOnly:=false;
  DBGrid1.Columns[3].ReadOnly:=false;
  DBGrid1.Columns[4].ReadOnly:=true;;
  DBGrid1.Columns[5].ReadOnly:=false
  Button4.Enabled := False; //“Button4”为编辑按钮
  Button5.Enabled := True;  ////“Button5”为保存按钮end;
在线等待求解…………
分不够再加

Answer 3

if (MyGrid1.col=6)then////////设置6列为可以修改
begin
 Mygrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goEditing,goTabs,goAlwaysShowEditor,goDrawFocusSelected];
end
else
begin
 Mygrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goTabs,goDrawFocusSelected];
end;