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;