подскажите где ошибка?

← →
stud © (2005-07-21 15:27) [0]

есть такой код, в результате появляется нужное количество табшитов, но на них нет стринггридов, вставляю этот код в обработчик нажатия кнопки - все замечательно работает, в чем моя ошибка?
for i:=0 to sectionini.Count-1 do
begin
with tdxtabsheet.Create(pagec) do
begin
name:="tabsheet"+inttostr(i);
parent:=pagec;
pagecontrol:=pagec;
visible:=true;
caption:=settingfile.ReadString(sectionini.Strings[i],"comment","*");
end;

with Tstringgrid.Create(self) do
begin
name:="stringgrid"+inttostr(i);
parent:=(form1.FindComponent("tabsheet"+inttostr(i)) as TdxTabSheet);
defaultDrawing:=true;
OnDblClick:=StringGrid23DblClick;
rowcount:=2;
colcount:=5;
align:=alClient;
Cells[1,0]:="Ïîñûëêà";
Cells[2,0]:="Ñòàòóñ";
Cells[3,0]:="Âðåìÿ ïðèåìà";
OnMouseMove:=StringGrid23MouseMove;
OnDrawCell:=StringGrid23DrawCell;
tag:=i;
end;
end;

← →
Digitman © (2005-07-21 15:46) [1]

не барское это дело - отладчик встроенный пользовать

← →
stud © (2005-07-21 15:48) [2]

> не барское это дело - отладчик встроенный пользовать

так а неправильно-то что??

← →
evvcom © (2005-07-21 16:24) [3]

> with tdxtabsheet.Create(pagec) do

заменить на MyTabSheet := tdxtabsheet.Create(pagec);

> parent:=(form1.FindComponent("tabsheet"+inttostr(i)) as
> TdxTabSheet);

заменить на parent:=MyTabSheet;

> name:="tabsheet"+inttostr(i);
> name:="stringgrid"+inttostr(i);

убрать и больше никогда не пользовать

← →
Digitman © (2005-07-21 16:30) [4]

> так а неправильно-то что??

отладчик как раз и покажет)

но не барское же это дело, согласись ?

все вылечилось всем спасибо

грабли - штука уж больно надоедливая)

подскажите где ошибка? Найти похожие ветки