1 Topic by adiziktdy (edited by adiziktdy 2020-02-10 10:07:16)

  • Registered: 2018-02-02
  • Posts: 139

Topic: [РЕШЕНО] Заблокировать вычисляемое поле для редактирования

Есть таблица с вычисляемым полем (номер 9 на рисунке)

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var i: integer;
begin
For i:=0 to 10 do                                 {запрет на редактирование всех колонок кроме последней}
Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options - coEditing;
end;

Но к нему всё равно остаётся доступ, если кликнуть по полю. Как вылечить? sad

https://c.radikal.ru/c06/2002/e6/dc05eb1fc6f8.jpg

Yana
  • Registered: 2018-02-02
  • Posts: 139

Re: [РЕШЕНО] Заблокировать вычисляемое поле для редактирования

Сообщение об ошибке:
https://c.radikal.ru/c23/2002/b4/8a9701ff23ab.jpg

Yana
  • Registered: 2018-02-02
  • Posts: 139

Re: [РЕШЕНО] Заблокировать вычисляемое поле для редактирования

Вышла из положения так:

1. В свойствах таблицы   Editable->   AllowEdit  -> False

2. Разрешила редактирование последней колонки

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var i: integer;
begin
Form1.TableGrid1.Columns[11].Options := Form1.TableGrid1.Columns[11].Options + coEditing; 
end;
Yana