[Tonyy]

возможно ли такое сделать?
я хочу чтобы по умолчанию таблица не давала возможности редактировать себя. но в процессе выполнения проги, при нажатии кнопки или переключателя некоторые колонки становились бы редактируемыми. ну или на крайняк вся таблица, но все же лучше что бы только отдельные колонки?

[Страдалецъ]

А вы про какую таблицу говорите?

[Tonyy]

таблицу СтрингГрид

[AND_REY]

Вкл. редактирование

Код:

StringGrid1.Options :=  StringGrid1.Options + [goEditing];

Выкл. редактирование

Код:

StringGrid1.Options :=  StringGrid1.Options - [goEditing];

[AND_REY]

Вот ещё идея появилась:

Код:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
 Col,Row,R: Integer;
begin
R:= 3;  // 3-ий столбец можно редактировать остальные нет.
StringGrid1.MouseToCell(X,Y,Col,Row);
if R = Col Then
 StringGrid1.Options:=  StringGrid1.Options + [goEditing]
          Else
 StringGrid1.Options:=  StringGrid1.Options - [goEditing];
end;

По аналогии можно для любой клетки сделать.

[Tonyy]

спасибо И Рей. ты отличный программист!