Developing.ru

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
begin
  CanSelect := (Col mod 2) <> 0;
end;

можно использовать метод OnSelectCell
[code]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
begin
CanSelect := (Col mod 2) <> 0;
end;
[/code]
тогда юзер просто не сможет выделить эту ячейку

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

Установка атрибута Только для чтения у столбцов компонента StringGrid
Юзать можно к примеру в обработчике события OnSelectCell
[code]if Col mod 2 = 0 then
grd.Options := grd.Options + [goEditing]
else
grd.Options := grd.Options - [goEditing];[/code]

пожалуйста выручайте....я только учусь, а мне надо уже штуку одну сделать...задание было такое: используя stringgrid вычислить всякие там экономические показатели...в 1-й столбец вводишь числа, во 2-м расчеты и т.д. через один...все нормально, но надо сделать так, чтобы в каждый 2-й столбец (где расчитывается) нельзя было вводить ничего...я нигде не могу этого найти.. :(