Создание компонентов Run Time

[Serebah]

Помогите пожалуйста. У меня на форме есть Edit1 и кнопка. Как реализовать чтоб при нажатии на кнопку создавался TEdit ниже уже имеющегося а при повторном нажатии на кнопку еще один ниже созданного, при третьем нажатии еще один ниже и так далее.
Как это реализовать?

[Alexei91]

var Edit2: TEdit;
               i: Integer;   
begin
  for i := 1 to 10 do
  begin 
    Edit2 := TEdit.Create(Edit1);
    Edit2.Name := 'Edit' + IntToStr(i); //возможно эта строчка не скомпил-ся
    Edit2.Left := ...;
    Edit2.Top := ...;
    Edit2.Visible := True; 
      ...
  end;
end;

Если не будет работать - http://www.drkb.ru/

[Serebah]

Блин. Создает только один компонент. А при повторном нажатии на кнопку ниже еще один не создается.

[_SERGEYX_]

Массив Edit-ов содзай. И кликай, только цикл убери

mas:array[1..10] of TEdit;

procedure TForm1.RzBitBtn2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    Mas[i] := TEdit.Create(Form1);
    Mas[i].parent := form1;
    Mas[i].Top := 10 + i * 21;
    Mas[i].Left := 10;
    Mas[i].Text := 'Edit' + inttostr(i);
  end;
end;

[Serebah]

Цикл убрал, но при нажатии на кнопку выскакивает окошечко с ошибкой

var
  Mas : array [1..10] of TEdit;
  i: integer;
  begin
    Mas[i] := TEdit.Create(self);
    Mas[i].parent := form1;
    Mas[i].Top := 10 + i * 120;
    Mas[i].Left := 240;
    Mas[i].Text := 'Edit' + inttostr(i);

Компилятор пишет, что переменная і не установлена. Как ее установить надо?

[zumm]

Эх...совсем еще зеленый. Тебе нужно с теорией динамической инициализации лучше разобраться. Ладно, как то вот так:

...
Mass: array of TEdit; {создаем динамический массив эдитов}
...
SetLength(Mass,0); {инициализируем динамический массив}
...
SetLength(Mass,length(Mass)+1); {увеличиваем размер массива на 1}
Mass[length(Mass)-1]:=TEdit.Create(nil); {создаем эдит}
with Mass[length(Mass)-1] do {инициализируем эдит}
begin
  Parent:=Form1; {"родитель"}
  Top:=10+index*50; {расположение по Y}
  Left:=240; {расположение по X}
  ...
end;
...

PS могут быть ошибки, не тестил...

[Serebah]

А в расположении по Y index это что?

[zumm]

эм...переклино малость, сори это как бы номер текущего элемента, можешь заменить его на length(Mass)

[Serebah]

Все сделал как написано, только создает один Эдит а при повторном нажатии на кнопку еще ниже не создает второй.

[zumm]

покажи что ты сделал

PS предвкушая ошибку - ты написал Mass: array of TEdit; и/или SetLength(Mass,0); в код кнопки...