如何实现StringGrid只有一列为编辑状态，其它列为只读？

Question

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if TStringGrid(Sender).Col <> 3 then Key := #0;
end;

Answer 1

在 OnSelectCell事件处理程序中,加入:
if Col mod 2 = 0 then  //让指定的列变为可写或者只读
   grd.Options := grd.Options + [goEditing]
else
   grd.Options := grd.Options - [goEditing];

Answer 2

建议你使用 CeleronII(抽烟的鱼) 的方法
我的方法不能处理右键操作等