| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

создание компонентов  в программе [D5]

Eraser ©   (2002-02-28 13:05:00) 

написал следующий код:
gr2:TGroupBox;
begin

with TGroupBox.Create(Self) do begin
name:="gr2";
parent:= sortForm;
caption:="ПК МикроДат";
left:=16;
top:=20;
Width:=kol_obj*20;
height:=45;
end;

for i:=1 to md_kol do
with TPanel.Create(self) do begin
Name:="P"+IntToStr(i);
caption:=inttostr(i);
Parent:=gr2;<<здесь падает, хотя gr2 создается до этого
BorderStyle:=bsSingle;
Height:=24;
Width:=18;
Left:=i*18-15;
Top:=15;
end;

---

Deus   (2002-02-28 13:12:00) [1]

Естественно
надо так:
gr2:=TGroupBox.Create(Self);
вместо
with TGroupBox.Create(Self) do begin
name:="gr2";
тогда всё будет ок.

---

Наверх