StringGrid制作只读列

　　在 OnSelectCell事件处理程序中,加入: (所有的列均设成可修改的)

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