Я пробовала, у меня либо ошибку выдает, либо че попало делает
Не подскажите куда в этом коде его поставить....
Код:
procedure TForm6.ComboBox1Change(Sender: TObject);
var
ComboBox3:TComboBox;
ComboBox4:TComboBox;
Label1:Tlabel;
Label2:Tlabel;
Edit1:TEdit;
Edit2:TEdit;
i:integer;
begin
Label1:=Tlabel.create(self);
Label1.Parent:=Form6;
Label1.Left:=304;
Label1.Top:=30;
Label2:=Tlabel.create(self);
Label2.Parent:=Form6;
Label2.Left:=304;
Label2.Top:=70;
ComboBox2.Items.Clear;
if ComboBox1.Text='Пластинчатый' then
begin
ComboBox3:=TComboBox.create(self);
ComboBox3.Parent:=Form6;
ComboBox3.Left:=304;
ComboBox3.Top:=54;
ComboBox4:=TComboBox.create(self);
ComboBox4.Parent:=Form6;
ComboBox4.Left:=304;
ComboBox4.Top:=104;
ComboBox2.Items.Add('ЭГА-1-10-6-4-2');
ComboBox2.Items.Add('ЭГА-1-10-6-6-3');
ComboBox2.Items.Add('ЭГА-20-9-6-2');
ComboBox3.Items.Add('4');
ComboBox3.Items.Add('6');
ComboBox3.Items.Add('8');
ComboBox4.Items.Add('2');
ComboBox4.Items.Add('3');
ComboBox4.Items.Add('4');
Label1.Caption:='Число электродов';
Label2.Caption:='Число электрополей';
end
else
if ComboBox1.Text='Трубчатый' then
begin
Edit1:=TEdit.create(self);
Edit1.Parent:=Form6;
Edit2:=TEdit.create(self);
Edit2.Parent:=Form6;
ComboBox2.Items.Add('С-5');
ComboBox2.Items.Add('ПГ-8');
ComboBox2.Items.Add('ДМ-316');
Label1.Caption:='Длина труб';
Label2.Caption:='Диаметр труб';
end;
end;
end.