Клонирование компонента

[chandrasecar]

Лежит на форме визуальный компонент (например Button1), настроенный как мне нужно. Есть массив Buttons: array [1..20] of TButton. Как заполнить этот массив копиями компонента Button1 не потеряв его настроек? Все элементы массива должны быть идентичны Button1.

[Прик]

Идентичными не получаться. Например, свойства Left или Top у всех кнопок должны быть разными, иначе они закроют друг друга и на форме будет видна одна кнопка.
Отсюда вывод, точных копий быть не может.
Вопрос необходимо скорректировать, чтобы понятна была цель.

[_SERGEYX_]

var mas:array[1..10] of TButton;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to 10 do
  begin
    Mas[i] := TButton.Create(Form1);
    Mas[i].Parent := Form1;
    Mas[i].Top := 100 + i * 20;
    Mas[i].Left := 100;
    Mas[i].Caption := 'Кнопка ' + IntToStr(i);
    Mas[i].Tag := i;
    Mas[i].Name := Mas[i].ClassName + inttostr(i);
    (Mas[i]).OnClick := MyClick; //процедура по щелчку. Нужно задекларировать.
  end;
end;

procedure TForm1.MyClick(Sender: TObject);
begin
  ShowMessage('Нажали на кнопку № ' + inttostr((Sender as TButton).Tag));
end;

Как видишь, свойству Tag происвоен порядковый номер. Я всегда так делаю, чтобы в процедуре MyClick разделить события кнопок, т.к. по имени к ним обращаться нельзя:

case (Sender as TButton).Tag of
  begin
  1:{.......}
  2:{.......}
{.......}
end;

Понятно написал?
Юзай поиск "Динамическое создание компонент"

[dmitriegorovih]

С массивом не прокатит, попробуйте вот так

var
  Form1: TForm1;
   kom:Tbutton;   //Button от класса Tbutton
   komponent_list:Tlist; //Список
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
kom:=Tbutton.Create(self); // Указываем где создаётся
kom.parent:=form1; //Указываем родителя тоесть на чё он будет
kom.Caption:='2';  //Отсюда можно прыгать со свойствами
tag:=tag+1;        //Нужно для того что-бы имя у них не повторялось
kom.Name:='button_'+inttostr(tag);  //Указываем новое имя
komponent_list.add(kom);            //А это массив тока чучуть в другом плане
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
komponent_list:=Tlist.Create; //Создаём список
end;

[_SERGEYX_]

С массивом не прокатит

Ну, почему? Еще как работает

[dmitriegorovih]

Ну, почему?

Не знаю пробовал с фреймом не получается

[Alter]

http://delphiworld.narod.ru/base/clone_comp.html
http://delphiworld.narod.ru/base/clone_comp2.html
http://amar-runyak.ucoz.ru/publ/3-1-0-44

[Stilet]

Не знаю пробовал с фреймом не получается

Ты просто не разобрался

[chandrasecar]

Спасибо _SERGEYX_! Мне помог ваш код. Сначала пытался клонировать, но простое создание объекта и задание нужных свойств программно оказалось лучше.

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to 10 do
  begin
    Mas[i] := TButton.Create(Form1);
    Mas[i].Parent := Form1;
    Mas[i].Top := 100 + i * 20;
    Mas[i].Left := 100;
    Mas[i].Caption := 'Кнопка ' + IntToStr(i);
    Mas[i].Tag := i;
    Mas[i].Name := Mas[i].ClassName + inttostr(i);
    (Mas[i]).OnClick := MyClick; //процедура по щелчку. Нужно задекларировать.
  end;
end;

procedure TForm1.MyClick(Sender: TObject);
begin
  ShowMessage('Нажали на кнопку № ' + inttostr((Sender as TButton).Tag));
end;

Теперь проблема с очисткой массива и уничтожением созданных компонентов...