ساختن DBCTRLGRID به صورت RUNTIME

[Sohrab_Tapar]

چطوری میشه یک DBCTRLGRID را به صورت runtime ایجاد کرد
من این دو تا کد را نوشتم ولی هیچکدام کار نمی کنه یعنی
dbctrlgrid را میکشه ولی dbtext فقط در ردیف اول ظاهر میشه

procedure TForm2.Button2Click(Sender: TObject);
var c : TDBCtrlGrid;
d : TDBText;
p : TDBCtrlPanel;
begin
p := TDBCtrlPanel.Create(Form2);
p.Height := 75;
p.Width := 195;
p.Parent := Form2;

d := TDBText.Create(p);
d.Parent := p;
d.Left := 14;
d.Top := 30;
d.Width := 100;
d.Height := 17;
d.Color := clred;
d.DataSource := DataSource1;
d.DataField := 'Code';

c := TDBCtrlGrid.Create(Form2);
c.Parent := Form2;
c.Width := 211;
c.Height := 375;
c.Left := 100;
c.Top := 100;
c.DataSource := DataSource1;

p := TDBCtrlPanel.CreateLinked(c);

c.ColCount := 1;
// c.PanelHeight := 75;
// c.PanelWidth := 195;
c.RowCount := 5;
end;




procedure TForm2.Button3Click(Sender: TObject);
var c : TDBCtrlGrid;
d : TDBText;
begin
c := TDBCtrlGrid.Create(Form2);
c.Parent := Form2;
c.Width := 211;
c.Height := 375;
c.Left := 100;
c.Top := 100;
c.DataSource := DataSource1;

d := TDBText.Create(c);
d.Parent := c;
d.Left := 14;
d.Top := 30;
d.Width := 100;
d.Height := 17;
d.Color := clred;
d.DataSource := DataSource1;
d.DataField := 'Code';

c.ColCount := 1;
c.PanelHeight := 75;
c.PanelWidth := 195;
c.RowCount := 5;

Table1.Close;
Table1.Open;
end;

[Sohrab_Tapar]

هیچکس تا حالا با dbctrlgrid کار نکرده؟

[سار]

هیچکس تا حالا با dbctrlgrid کار نکرده؟چی هست اینی که میگی؟
ازش عکس داری؟

[_alish_]

Parent را تعریف نکردی

[Sohrab_Tapar]

همه این کارها رو کردم .البته اگه کمی دقت کنید
اگه میتونین کدی ارایه کنید که یه dbctrlgrid را به صورت صحیح بسازد