DBGrideh не скрывает поле key

[cw82]

procedure TForm2.Button1Click(Sender: TObject);
begin
if Form2.RadioButton1.Checked=True then
   Form2.DataSource1.DataSet:=ADOQuery1;
   ADOQuery1.Active:= True;
   Form2.DBGrideh1.Columns.Clear;  //отчищаем grid
   Form2.DBGrideh1.columns.AddAllColumns(true);//добавляем в грид новые столбцы
   ADOQuery1.filtered:=False;
   Form2.DBGridEh1.Columns[0].Visible := False;

В ADOQuery1 запрос вида select * from Table , естественно выводит все поля, далее после добавления в Грид всех полей пытаюсь скрыть поле key но оно не скрывается. Понимаю,что можно изменить запрос и вывести все поля кроме key, но хочу понять почему мой метод не работает. Спасибо.

[cw82]

Не ужели никто не поможет? 20 человек просмотрело тему. Застрял на этой мелочи
..

[Аватар]

У меня работает

[cw82]

Если вешаю это событие на др кнопку то тоже работает...
Может где то здесь кроется ошибка ?

if Form2.RadioButton1.Checked=True then

   Form2.DataSource1.DataSet:=ADOQuery1;
   ADOQuery1.Active:= True;
   Form2.DBGrideh1.Columns.Clear;  //отчищаем grid
   Form2.DBGrideh1.columns.AddAllColumns(true);//добавляем в грид новые столбцы
   ADOQuery1.filtered:=False ;
   Form2.DBGridEh1.Columns[0].Visible := False;

if Form2.RadioButton2.Checked=True then
   Form2.DataSource1.DataSet:=ADOQuery2;
   ADOQuery2.Active:= True;
   Form2.DBGrideh1.Columns.Clear;  //отчищаем grid
   Form2.DBGrideh1.columns.AddAllColumns(true);//добавляем в грид новые столбцы
   ADOQuery2.filtered:=False;
   Form2.DBGridEh1.Columns[0].Visible := False;

И этих IF 12шт...

[cw82]

понимаю, что говно код, но как есть..., обещаю исправиться.

[Serge_Bliznykov]

if Form2.RadioButton1.Checked then 
 BEGIN 
тут код
 END 

if Form2.RadioButton2.Checked then
 BEGIN 
тут код
 END 

мысль понятна?

[cw82]

Благодарю Вас. Мысль была, что надо бы это прописать , но как то работало, поэтому забил... Теперь работает как надо. Спасибо.