Скачать: CL | DM;

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

← →
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]

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


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

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

---

← →
stud ©   (2005-07-21 16:32) [5]

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

---

← →
Digitman ©   (2005-07-21 16:36) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c