[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')-атрибут измениться только у последней,а как у других менять?

[ryderx34]

Нужен массив кнопок:

Код:

var
  MyButtons: array of TButton;

Создаёшь кнопки так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  SetLength(MyButtons, StrToInt(Edit1.Text)); // задаёшь разиер массива (кол-во кнопок)
  for I := 0 to Length(MyButtons) - 1 do 
  begin  // в цикле создаёшь кнопки и сохраняешь указатели на них в массиве
    MyButtons[i] := TButton.Create(Form1);
    // здесь делаешь с созданной кнопкой что нужно
    MyButtons[i].Parent := Form1;
    // и т. д.
  end;
end;

Потом работаешь с ними так:

Код:

MyButtons[0].Caption := 'My button 1';
MyButtons[1].Caption := 'My button 2';

[Snake22]

Спасибо! с учебы приду заценю)

[Janom]

Или так:

Код:

var
  Form1: TForm1;
  Button2 : Tbutton;
<...>
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 10 do
 begin
   With Button2 do
     begin
       TButton.Create(Form1);
       Parent := Form1;
       Height := 25;
       left:=72 ;
       Top:=8;
       Name:='Btn'+IntToStr(i);
     end;
 end;
 end;

Потом производиш поиск по имени. Если кнопка нашлась присвоить ей какое-либо событие...

[PhoeniX]

Сообщение от Janom

Если кнопка нашлась присвоить ей какое-либо событие...

Вопрос тысячелетия: почему нельзя назначить кнопке эвент при создании? Причём, даже не на одну, а на все кнопки? И определять, какая из них нажата, по свойству Tag?

[Janom]

Можно, но тэг тоже отслеживать надо...
Я про такой вариант:

Код:

var FindComp:TComponent;
...
for i:=0 to form1.componentcount-1 do
    begin
      if form1.components[i].name=('Btn7') then
        begin
           FindComp:=form1.findcomponent(form.components[i].name);
           TButton(FindComp).Caption:='Кнопка7';
        end;
    end;