PHP DM Gate v0.9 » TDBCtrlGrid - как создавать динамически? <span class="vd">[D7, WinXP]</span>

Леван (11.09.13 09:58) [0]

Привет мастерам! (давно не беспокоил)
Есть такой компонент - TDBCtrlGrid. Если разместить его на формуб привязать к базе и разместить на первом панеле несколко tDbedit, привязанных к полям базы, отобрахжения полей дублируются на всех панелях для последователных записей dataset. Если создавать TDBCtrlGrid динамически,
определить rowcount/colcount и создавать tDbedit-и (тоже динамически), определив Parent :=grid, то эти поля появляются только на первом панеле (не дублируются).
Вопрос: какой property управляет дублированием, т.е. как автоматически продублировать последовательные записы на панелях?
Спасибо

<Цитата>
[ВладОшин] © (11.09.13 16:49) [1]

TDBCG = class( TDBCtrlGrid );

dbcg2 := TDBCtrlGrid.Create(Form1);
Form1.InsertControl(dbcg2);
dbcg2.Left := 200;
dbedt2FFF := TDBEdit.Create(dbcg2);
dbedt2FFF.Name := 'dbedt2FFF';
TDBCG(dbcg2).Panel.InsertControl(dbedt2FFF);
dbedt2FFF.Left := 55;
dbcg2.DataSource := ds1;
dbedt2FFF.DataSource := ds1;
dbedt2FFF.DataField := 'FFF';

<Цитата>
Леван (12.09.13 11:05) [2]

Спасибо!
Я нашел другое решение (http://www.delphigroups.info/2/e1/35614.html):
dbedt2FFF.parent:=dbcg2.controls[0];
Наверное, эти решения эквивалентны!

<Цитата>
[ВладОшин] © (12.09.13 11:27) [3]

нет.

> dbedt2FFF.parent:=dbcg2.controls[0];

это рассово вернее :)

<Цитата>
icWasya © (13.09.13 12:05) [4]

procedure TControl.SetParent(AParent: TWinControl);
begin
if FParent <> AParent then
begin
if AParent = Self then
raise EInvalidOperation.CreateRes(@SControlParentSetToSelf);
if FParent <> nil then
FParent.RemoveControl(Self);
if AParent <> nil then
begin
AParent.InsertControl(Self);//<<===----- вот
UpdateAnchorRules;//<<==------ но затем вот это
end;
end;
end;

<Цитата>
OleGGa © (23.11.13 21:25) [5]

О, спасибо большое
____________________
http://www.waycargo.ru/pagearticle/kitai/

<Цитата>