StringGrid ограничение ввода

[samurayka]

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

[Duncon]

Установка атрибута Только для чтения у столбцов компонента StringGrid
Юзать можно к примеру в обработчике события OnSelectCell

Код: Выделить всё

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

[Игорь Акопян]

можно использовать метод OnSelectCell

Код: Выделить всё

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

тогда юзер просто не сможет выделить эту ячейку