Показать сообщение отдельно
  #3  
Старый 16.05.2009, 12:34
Ksully Ksully вне форума
Прохожий
 
Регистрация: 17.04.2009
Сообщения: 23
Репутация: 10
По умолчанию

Я пробовала, у меня либо ошибку выдает, либо че попало делает

Не подскажите куда в этом коде его поставить....
Код:
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.
Ответить с цитированием