[srr]

Помогите пожалуйста!
Есть DBGrid из 14 колонок, есть соответствующее меню и форма из CheckBox - ов, всё работает, если не перемещать колонки, если переместишь то понятно индексы то остаются, что делать, покажите плз примерный код, буду очень благодарен

Одна из процедур формы, поправьте плз

Код:

procedure TViborForm.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked  then
MainForm.DBGrid1.Columns[1].Visible:=true
else
MainForm.DBGrid1.Columns[1].Visible:=false;
end;

Admin: Используем теги для форматирования кода!

[Professor Farnsworth]

Можно так поступить, хотя наверное есть более короткий путь.
Скрываем столбец по имени поля.

Код:

    For i:=0 to DBGrid1.Columns.Count-1 do
       if DBGrid1.Columns[i].FieldName = 'id' then
       begin
          DBGrid1.Columns[i].Visible:=false;
          exit;
       end;

[srr]

Большое спасибо! Я так же думал. Но все же думал есть что-либо проше