stringgrid中的selectcell事件procedure Tform1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if (acol=0)and(arow=1)then
canselect:=false;//等价于cells[0,1].enabled:=false;
end;
ARow: Integer; var CanSelect: Boolean);
begin
if (acol=0)and(arow=1)then
canselect:=false;//等价于cells[0,1].enabled:=false;
end;
stringgrid1.cells[i,j].enabled:=false;
i为列数,j为行数。
设置焦点options->gdediting=true;//可修改可获得焦点