Генерация компонентов в рантайме

[Mutagena]

Подскажите пожалуйста, каким образом сгенерировать новые компоненты на форме во время работы программы?
Это нужно для того, что сперва неизвестно сколько однотипных компонентов необходимо.

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=48845
+Поиск по форуму "Динамическое создание"

[Mutagena]

Ничего не поняла. Можно пример, например, как динамически создать кнопочку или поле Edit?

[raxp]

дополнительный поиск по форуму никогда не мешал:

var knop: array of tspeedbutton;
...
kn:= 20; // допустим кол-во кнопок =20

setlength(knop, length(kn)); //привязываем кол-во кнопок к к-ву названий
  for i:= low(knop) to high(knop) do begin
   knop[i]:= Tspeedbutton.Create(nil);
   with knop[i] do begin
    Font.Color:= clwhite; font.name:= 'arial'; font.size:= 7;
    flat:= true;
    width:= 70;
    height:= 18;
    left:= 100 + (width*i)+(i*2);
    tag:= i;
    //onclick:= to_knop;
    caption:= kn[i];
    panel.InsertControl(knop[i]);
   end
  end;

[Mutagena]

А переменная kn должна быть какого типа?

[raxp]

А переменная kn должна быть какого типа?

а как по-вашему? и почему-бы "length(kn)" просто не заменить на число...

[Mutagena]

Потому что в приведённом вами примере есть строка кода:
caption:= kn[i];

[mihali4]

Возможно, вам нужно немного другое?
Вот простейший пример - по нажатию на кнопку каждый раз будет создаваться новая кнопка (прямо на форме):

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var mybut: TButton;
begin
mybut:=TButton.Create(self);
mybut.Caption:='NewButton';
mybut.Parent:=Form1;
mybut.Top:=i*mybut.Height+10;
Inc(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

end.

С капшенами сами решите...
А поиском нужно пользоваться (читайте правила).
Это очень просто - там, где вам написано "Добро пожаловать", есть пункт меню "Поиск". Нажмите и введите слова, которые вам предложили в п.2.
Ответов на ваш вопрос будет до изумления много...
Например, самый недавний
http://www.programmersforum.ru/showthread.php?t=73010

[Mutagena]

Спасибо, разобралась