Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

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


Eraser   (2002-02-28 13:05) [0]

написал следующий код:
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) [1]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.051 c
1-43026           Olezh                 2002-02-26 13:10  2002.03.14  
Пожалуйста помогите!...


1-43034           Mans2k                2002-02-26 14:15  2002.03.14  
Как из Delphi перезать указатель в C++?


7-43202           AndrewInc             2001-12-13 16:50  2002.03.14  
Как перезагрузить Windows NT


14-43167          Igor_thief            2002-01-30 17:38  2002.03.14  
Если не слом, то почитаете.


3-42941           Hawk2                 2002-02-15 09:51  2002.03.14  
Вопрос о двух DBGrid-ах.