关于一些dbgrideh字段的属性有没有简单的写法?
今天要针对dbgrideh某个列允许编辑,其它字段全部设为只读不知有没有简单的写法?我这样写太复杂了,谁教我的种简单的写法?
DBGridEh1.Columns[0].ReadOnly:=true;
DBGridEh1.Columns[1].ReadOnly:=true;
DBGridEh1.Columns[2].ReadOnly:=true;
DBGridEh1.Columns[3].ReadOnly:=true;
DBGridEh1.Columns[4].ReadOnly:=true;
DBGridEh1.Columns[5].ReadOnly:=true;
DBGridEh1.Columns[6].ReadOnly:=true;
DBGridEh1.Columns[7].ReadOnly:=true;
DBGridEh1.Columns[8].ReadOnly:=true;
DBGridEh1.Columns[9].ReadOnly:=true;
DBGridEh1.Columns[10].ReadOnly:=true;
DBGridEh1.Columns[11].ReadOnly:=true;
DBGridEh1.Columns[12].ReadOnly:=true;
DBGridEh1.Columns[13].ReadOnly:=true;
DBGridEh1.Columns[14].ReadOnly:=true;
DBGridEh1.Columns[15].ReadOnly:=true;
DBGridEh1.Columns[16].ReadOnly:=true;
DBGridEh1.Columns[17].ReadOnly:=true;
DBGridEh1.Columns[18].ReadOnly:=true;
DBGridEh1.Columns[19].ReadOnly:=true;
DBGridEh1.Columns[20].ReadOnly:=true;
DBGridEh1.Columns[21].ReadOnly:=true;
DBGridEh1.Columns[22].ReadOnly:=true;
DBGridEh1.Columns[23].ReadOnly:=true;
DBGridEh1.Columns[24].ReadOnly:=true;
DBGridEh1.Columns[25].ReadOnly:=true;
DBGridEh1.Columns[26].ReadOnly:=false;
DBGridEh1.Columns[27].ReadOnly:=true;
DBGridEh1.Columns[28].ReadOnly:=true;
DBGridEh1.Columns[29].ReadOnly:=true;
DBGridEh1.Columns[30].ReadOnly:=true;
DBGridEh1.Columns[31].ReadOnly:=true;
DBGridEh1.Columns[32].ReadOnly:=true;
DBGridEh1.Columns[33].ReadOnly:=true;
DBGridEh1.Columns[34].ReadOnly:=true;
DBGridEh1.Columns[35].ReadOnly:=true;
DBGridEh1.Columns[36].ReadOnly:=true;
DBGridEh1.Columns[37].ReadOnly:=true;
DBGridEh1.Columns[38].ReadOnly:=true;
DBGridEh1.Columns[39].ReadOnly:=true;
DBGridEh1.Columns[40].ReadOnly:=true;
DBGridEh1.Columns[41].ReadOnly:=true;
DBGridEh1.Columns[42].ReadOnly:=true;
DBGridEh1.Columns[43].ReadOnly:=true;