Форум: "Основная";
Текущий архив: 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c