Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Add all в гридах

11 views
Skip to first unread message

Edward Luzhnih

unread,
Nov 11, 2008, 12:19:43 PM11/11/08
to
Hi All!

Hарод! подскажите, можно ли делать программно добавление полей в гриды, вроде
TDBGrid, TDxMasterView ?

With Best Regards

Sergey Kuchumov

unread,
Nov 11, 2008, 3:52:08 PM11/11/08
to
Hello, Edward !

EL> Hарод! подскажите, можно ли делать программно добавление полей в
EL> гриды, вроде TDBGrid, TDxMasterView ?

Типа так что ли?

procedure TForm1.Button1Click(Sender: TObject);
var Cols:Integer;
begin
Cols:=-1;
Dbgrid1.Columns.Add;
inc(Cols);
Dbgrid1.Columns[Cols].FieldName:='id';
Dbgrid1.Columns[Cols].Title.Caption:='Yoi EA';
Dbgrid1.Columns[Cols].Width:=50;

end;

-

Best regards,

Sergey Kuchumov

-+- GoldED+/W32 snapshot-2001.03.04

Edward Luzhnih

unread,
Nov 27, 2008, 11:06:28 AM11/27/08
to
Tue Nov 11 2008 23:52, Sergey Kuchumov wrote to oit...@mgw.npp.zp.ua:

SK> Hello, Edward !

EL>> Hарод! подскажите, можно ли делать программно добавление полей в
EL>> гриды, вроде TDBGrid, TDxMasterView ?

SK> Типа так что ли?

SK> procedure TForm1.Button1Click(Sender: TObject);
SK> var Cols:Integer;
SK> begin
SK> Cols:=-1;
SK> Dbgrid1.Columns.Add;
SK> inc(Cols);
SK> Dbgrid1.Columns[Cols].FieldName:='id';
SK> Dbgrid1.Columns[Cols].Title.Caption:='Yoi EA';
SK> Dbgrid1.Columns[Cols].Width:=50;

SK> end;

Я извиняюсь, я не про TDbGrid, а про TDxGrid и TDxMasterView хотел сказать. с
TDbGrid все вобще просто. Выше указанный пример и не нужен. Если в query поля
определены и обозваны по русски, в TDbGrid и так будет это отображаться, а
нет, так по умолчанию как обозваны в sql-запросе так и будут обображаться в
обычном гриде.

With Best Regards

Sergey Kuchumov

unread,
Nov 27, 2008, 3:30:12 PM11/27/08
to
Hello, Edward !

Once (Thursday November 27 2008) at 19:06 someone named Edward Luzhnih wrote to
Sergey Kuchumov. So, look here:

EL> From: "Edward Luzhnih" <oit...@mgw.npp.zp.ua>

EL> Tue Nov 11 2008 23:52, Sergey Kuchumov wrote to oit...@mgw.npp.zp.ua:

SK>> Hello, Edward !

EL>>> Hарод! подскажите, можно ли делать программно добавление полей

EL>>> в


EL>>> гриды, вроде TDBGrid, TDxMasterView ?

SK>> Типа так что ли?

SK>> procedure TForm1.Button1Click(Sender: TObject);
SK>> var Cols:Integer;
SK>> begin
SK>> Cols:=-1;
SK>> Dbgrid1.Columns.Add;
SK>> inc(Cols);
SK>> Dbgrid1.Columns[Cols].FieldName:='id';
SK>> Dbgrid1.Columns[Cols].Title.Caption:='Yoi EA';
SK>> Dbgrid1.Columns[Cols].Width:=50;

SK>> end;

EL> Я извиняюсь, я не про TDbGrid, а про TDxGrid и TDxMasterView хотел
EL> сказать. с TDbGrid все вобще просто. Выше указанный пример и не нужен.
EL> Если в query поля определены и обозваны по русски, в TDbGrid и так
EL> будет это отображаться, а нет, так по умолчанию как обозваны в
EL> sql-запросе так и будут обображаться в обычном гриде.

Я извиняюсь, посмотри тобой же вышеотквоченное TDBGrid, так что про что
спросил. А про то что пример не нужен не надо так категорично, я например даю
возможность пользователю определить какие ему поля нужны в гриде, пробегаю по
полям в query и читаю/сохраняю из/в ини файла/е свойства полей - ширину колонки
визибле и т.д.
--
Best regards,
Sergey Kuchumov

Edward Luzhnih

unread,
Nov 28, 2008, 6:33:18 AM11/28/08
to
Hi Sergey!

SK> Я извиняюсь, посмотри тобой же вышеотквоченное TDBGrid, так что про что
SK> спросил. А про то что пример не нужен не надо так категорично, я например
SK> даю возможность пользователю определить какие ему поля нужны в гриде,
SK> пробегаю по полям в query и читаю/сохраняю из/в ини файла/е свойства
SK> полей - ширину колонки визибле и т.д.

Может туплю, но сами поля программно в гриды о которых сказал добавить не
смог. Можно конечно через Create каждое поле создавать и назвачать ему все что
нужно..и наверное так и надо делать в даном случае.. Если поля уже есть, любые
допустимые действия я с ними конечно уже делать могу. Собствено свой вопрос я
решил..не так как хотелось бы..но тем не менее..

With Best Regards

0 new messages