Создать колонку в динамическом гриде.

Roman20

Всем привет!Есть форма, на которой имеется кнопка, по нажатию на которую вызывается динамический грид, который работает с запросом. Так вот в этом гриде в Columns соответственно никаких полей не добавлено.А у меня есть поле которое принимает значение (1 или 0).Так вот я хотел сделать чтобы оно приняло значение Checked, т.е. как галочку можно было бы преключать.Как я понимаю нужно в коде прописать следующие действияGrid->Columns->Add New(новое поле)->Checkboxes(True).А вот в коде я что то не могу понять как это сделать. Подскажите пожалуйста, каким образом это прописыватся. Или же можно сделать по другому как то?Спасибо.
<b>procedure</b> TFrm_KL_VID_OBOR.Teh_xarClick(Sender: TObject);
<b>var</b> FNM_Choice: TFNM_Choice;
<b>begin</b> FNM_Choice := TFNM_Choice.Create(Self); <b>try</b> <b>with</b> Q <b>do</b> <b>begin</b> Close; SQL.Clear; SQL.Add('SELECT t.id_mod, k.id_tex, k.kod_tex kod,'); SQL.Add('k.name_tex name,'); SQL.Add('decode(t.id_mod,NULL,0,1) pr'); SQL.Add('from kltex k, tex_mod t'); SQL.Add('WHERE k.id_tex=t.id_tex(+)'); SQL.Add('AND t.id_mod(+)=:1'); SQL.Add('order by kod, name'); ParamByName('1').Value:=QMod.FieldByName('id_mod').AsInteger; Open; FieldByName('id_mod').visible := false; FieldByName('id_tex').visible := false; FieldByName('kod').DisplayLabel := 'Код '; FieldByName('name').DisplayLabel := 'Наименование'; FieldByName('pr').DisplayLabel := 'Признак'; <i>//переменная принимает значение 0 или 1 Checkboxes</i> <b>end</b>; FNM_Choice.grid.AutoFitColWidths := true; FNM_Choice.grid.Columns[<b>4</b>].Checkboxes:=True; <i>//ругается на отсутствие поля</i> <b>if</b> FNM_Choice.Go(Q, 'Перечень технических характеристик') <> mrOk <b>then</b> exit;
<i>// qMod.Edit;</i>
<i>// qMod.FieldByName('id_vid_obor').AsInteger :=</i>
<i>// q.FieldByName('id_obor').AsInteger;</i>
<i>// qMod.FieldByName('obor').AsString := q.FieldByName('kod').AsString + ' ' +</i>
<i>// q.FieldByName('name').AsString;</i> <b>finally</b> FNM_Choice.Free; <b>end</b>;
<b>end</b>;
1 ответ

Roman20

myColumn: TGridColumn; <i>//Объявлям колонку</i>
myColumn:=TGridColumn.Create(myGrid.Columns); //Добавляем колонку в грид