[Spawn696]

Здравствуйте.Прочитал две книги так с вопросом и не разобрался.
Как добавлять компоненты на форму во время выполнения программы?
К примеру: если ввести число 3 и нажать на кнопку должно появиться 3 TEdit, 3 TButton, и 3 TStringGreed. а если ввести цифру 5 то их должно появиться по 5 штук каждый и т.п. Подскажите кто знает.

[@Rafa3L]

5$, отвечу.

[Страдалецъ]

Экий ты меркантильный Rafa.

Код:

Var
  i, n: Integer;
begin
 N := 3;
 for i := 1 to N
 do begin
    with TEdit.Create(Self)
    do begin
       Parent := Self;
       Top := 50;
       Left := i * 80;
       Width := 75;
       Height := 18;
       Text := 'Вводилка' + IntToStr(i);
       end;
    with TButton.Create(Self)
    do begin
       Parent := Self;
       Top := 70;
       Left := i * 80;
       Width := 75;
       Height := 18;
       Caption := 'Жмякалка' + IntToStr(i)
       end;
    with TStringGrid.Create(Self)
    do begin
       Parent := Self;
       Top := 90;
       Left := i * 80;
       Height := 79;
       Width := 80;
       Caption := 'Сеточка' + IntToStr(i)
       end;
    end;
end;

[Spawn696]

Спасибо большое страдалец=) очень выручил.Посмотрел,всё понял,разобрался.Буду кодить.