Создание группы обьектов

[BlackFishSQL]

Здравтсвуйте!

Есть такой вопрос! на форме есть GroupBox1, а в нём Edit1, CheckBox1, CheckBox2. как при нажатии кнопки ниже первого GroupBox-а создать второй с такими же компонентами?? и сколько бы раз не нажимал они бы создавались?

[veniside]

procedure TForm1.Button1Click(Sender: TObject);
var
  GB: TGroupBox;
  E: TEdit;
  CB1: TCheckBox;
  CB2: TCheckBox;
begin
  GB  := TGroupBox.Create(Self);
  E   := TEdit.Create(Self);
  CB1 := TCheckBox.Create(Self);
  CB2 := TCheckBox.Create(Self);
  //
  GB.Parent := Self;
  E.Parent := GB;
  CB1.Parent := GB;
  CB2.Parent := GB;
end;

Left, Top, Width, Heigh, Caption добавить по вкусу.

[BlackFishSQL]

veniside огромное при огромное спасибо!

[BlackFishSQL]

блин а чё я репу поставить те не могу?(

[BlackFishSQL]

я не уточнил!!!!! нужно что бы обьекты в GroupBox создавались?? а это как сделать???

[veniside]

 E.Parent := GB;

как раз и переносит свежесозданный едит в свежесозданный групбокс.
Если сам групбокс должен быть вставлен в другой компонент, то ему так же следует назначить свойство Parent.

[BlackFishSQL]

А как сделать что бы они создавались ниже уже созданного???

procedure TForm1.Button1Click(Sender: TObject);
var
  GB: TGroupBox;
  E: TEdit;
  CB1: TCheckBox;
  CB2: TCheckBox;
begin
  GB  := TGroupBox.Create(Self);
  E   := TEdit.Create(Self);
  CB1 := TCheckBox.Create(Self);
  CB2 := TCheckBox.Create(Self);
  //
  GB.Parent := Self;
  E.Parent := GB;
  CB1.Parent := GB;
  CB2.Parent := GB;
  //
  GB.Top:=GB.Top+25;
  GB.Left:=GB.Left;

  //
  GB.Width :=GroupBox1.Width;
  GB.Height:=GroupBox1.Height;
  E.Left   :=edit1.Left;
  E.top    :=edit1.top;
  CB1.Left :=CheckBox1.Left;
  CB1.Top  :=CheckBox1.Top;
  //

  GB.Left:=GroupBox1.Left;
  GB.Top:=GroupBox1.Top+100;
end;

И попутно вопрос checkbox2 я создал для того что бы удалять GroupBox любой целиком! к примеру я насоздавал 10 GroupBox и когда например в 5 GroupBox я выбираю checkbox2 он удаляется! как это организовать! я просто не понимаю как делфи понимает какой именно мы удаляем т.к. у нас все последующие имеют имя GB???