Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

stud © (2005-07-21 15:27:00)
есть такой код, в результате появляется нужное количество табшитов, но на них нет стринггридов, вставляю этот код в обработчик нажатия кнопки - все замечательно работает, в чем моя ошибка?
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 16:36:00) [1]
грабли - штука уж больно надоедливая)

stud (2005-07-21 16:32:00) [2]
все вылечилось всем спасибо

Digitman (2005-07-21 16:30:00) [3]

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

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

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

evvcom (2005-07-21 16:24:00) [4]

> 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);

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

stud (2005-07-21 15:48:00) [5]

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

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

Digitman (2005-07-21 15:46:00) [6]
не барское это дело - отладчик встроенный пользовать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »