Shadow_Still
Member
- Joined
- Feb 8, 2005
- Messages
- 38
- Reaction score
- 2
- Age
- 38
with TJvHTComboBox.Create(AddKitchenForm.components[groupindex] as TGroupBox) do
begin
Parent := (AddKitchenForm.components[groupindex] as TGroupBox); Всё Ок....
Name:='Style'+IntToStr(ind+i);
Width:=100;
Left:=38;
Top:=start+(i-1)*25;
end;
with TJvEdit.Create(AddKitchenForm.components[groupindex] as TGroupBox) do
begin
Parent := (AddKitchenForm.components[groupindex] as TGroupBox);Class EListError, List index out of bounds(-1)
Name:='Height'+IntToStr(ind+i);
Text:='720';
Width:=60;
Left:=148;
Top:=start+(i-1)*25;
end;
begin
Parent := (AddKitchenForm.components[groupindex] as TGroupBox); Всё Ок....
Name:='Style'+IntToStr(ind+i);
Width:=100;
Left:=38;
Top:=start+(i-1)*25;
end;
with TJvEdit.Create(AddKitchenForm.components[groupindex] as TGroupBox) do
begin
Parent := (AddKitchenForm.components[groupindex] as TGroupBox);Class EListError, List index out of bounds(-1)
Name:='Height'+IntToStr(ind+i);
Text:='720';
Width:=60;
Left:=148;
Top:=start+(i-1)*25;
end;