在stringgrid中怎样某一列不能进行修改？而焦点可以进入？

Question

在stringgrid中怎样某一列不能进行输入或修改？而焦点可以进入？
（当然，其它列可以进行输入修改）

Answer 1

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
    if StringGrid1.Col=2 then
        StringGrid1.Options := StringGrid1.Options - [goEditing]
    else
        StringGrid1.Options := StringGrid1.Options + [goEditing];
end;

Answer 2

同意楼上的：selectcell中：1。判断当前的行、列
2。改变options是否可以goEditing