Delphi中StringGrid制作只读列

Delphi中StringGrid制作只读列2008-02-02在 OnSelectCell事件处理程序中,加入: （所有的列均设成可修改的）

if Col mod 2 = 0 then
grd.Options := grd.Options + [goEditing]
else
grd.Options := grd.Options - [goEditing];