[Snake22]

здраствуйте.подскажите пожалуйста,как при нажатии на кнопку,создать N кол-во кнопок (кол-во вводим в Edit1)?

у меня получаеться создать тока одну кнопку

Код:

var
  Form1: TForm1;
  Button2 : Tbutton;
<...>
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2 := TButton.Create(Form1);
  Button2.Parent := Form1;
  Button2.Height := 25;
  Button2.left:=72 ;
  Button2.Top:=8;
   Form1.ActiveControl:=Button2;
  
 end;

если же я делаю так:

Код:

var
  Form1: TForm1;
  Button2 : Tbutton;
<...>
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to N do
 begin
  Button2 := TButton.Create(Form1);
  Button2.Parent := Form1;
  Button2.Height := 25;
  Button2.left:=20*i ;//с расположением пока не работал еще особо.это так для вида
  Button2.Top:=8;
  Form1.ActiveControl:=Button2;
 end;
  
 end;

если так сделать,то потом я могу обратиться тока к подследней созданной кнопке,всмысле не нажать ее (нажать можно любую) а изменить атрибут.(типа Button2.caption:='1')-атрибут измениться только у последней,а как у других менять?