Помогите пожалуйста!
Есть DBGrid из 14 колонок, есть соответствующее меню и форма из CheckBox - ов, всё работает, если не перемещать колонки, если переместишь то понятно индексы то остаются, что делать, покажите плз примерный код, буду очень благодарен
Одна из процедур формы, поправьте плз
Код:
1 2 3 4 5 6 7 | 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: Используем теги для форматирования кода!