Динамическое создание компонентов

[Janger]

На форме имеется ScrollBox1, по нажатию на кнопку, я хочу, что бы создавалась в ScrollBox1 --> GroupBox1, а в нём Edit1 и Button1
но что то у меня идёт не так.... GroupBox1 создаётся нормально, а вот Edit1 и Button1 не создаются в GroupBox1 .... Не пойму в чём проблема ....
Вот код, посмотрите в чём проблема... пожалуйста ... не могу осознать проблему ..

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TGroupBox.Create(ScrollBox1) do
  try
    Parent := ScrollBox1;
    Align := alTop;
    Parentcolor := false;
    ParentBackground := false;
    Color := RGB(random(255),random(255),random(255));
    Caption := 'Вопрос №'+IntToStr(x);
    Name := 'GroupBox'+IntToStr(x);

    with TEdit.Create((FindComponent(Format('GroupBox%d',[x])) as TGroupBox)) do
    try
      Parent := (FindComponent(Format('GroupBox%d',[x])) as TGroupBox);
      Name := 'Edit'+IntToStr(x);
      left := 14;
      top := 24;
      width := 619;
      height := 21;
      anchors := [akLeft,akTop,akRight];
      visible := true;
    except
      ShowMessage('Что то пошло не так в Edit-е');
    end;

    with TButton.Create((FindComponent(Format('GroupBox%d',[x])) as TGroupBox)) do
    try
      Parent := (FindComponent(Format('GroupBox%d',[x])) as TGroupBox);
      Name := 'Button'+IntToStr(x);
      left := 14;
      top := 24;
      width := 619;
      height := 25;
      anchors := [akTop,akRight];
      visible := true;
      Caption := 'Delete';
    except
      ShowMessage('Что то пошло не так в Button-е');
    end;

    x:=x+1;

  except
    ShowMessage('Что то пошло не так в ScrollBox-е');
  end;
end;

[Аватар]

У-у, вообще эти with не люблю, а тут еще и вложенность. Поди разберись чей это parent. Убрал бы все with что бы не мучать компилятор и явно прописал

[Janger]

Примерно вот такой вид имеет форма

[Janger]

Сообщение от Аватар

У-у, вообще эти with не люблю, а тут еще и вложенность. Поди разберись чей это parent. Убрал бы все with что бы не мучать компилятор и явно прописал

Да я так работал, нормально всё было, пока действительно вложением не начал заниматься ...

[Аватар]

Так нельзя что ли

var xGroupBox: TGroupBox;
      xEdit: TEdit;

  xGroupBox:=TGroupBox.Create(ScrollBox1);
  xGroupBox.Parent:=ScrollBox1;
  ...
  xEdit:=TEdit.Create(xGroupBox);
  xEdit.Parent:=xGroupBox;
  ... и т.д.

[min@y™]

советую написать компонент-наследник от TGroupBox, дочерними элементами которого будут edit & button.

[northener]

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

Да я так работал, нормально всё было, пока действительно вложением не начал заниматься ...

"Вложения" тут совершенно не при чем. Всё дело в том, что FindComponent это не волшебная палочка, а метод класса наследника TComponent. Теперь вопрос чей метод нужно вызывать в данном случае и чей метод реально вызывается в этом коде?

[min@y™]

Повторяю ещё раз:

советую написать компонент-наследник от TGroupBox, дочерними элементами которого будут edit & button.

Будет красиво, быстро и кратко. Вот, например, как у меня:



Поиграйся. Устраивает?

[min@y™]

Посчитал: ~150 строк кода вместе с комментами и пустыми. 15 минут кодинга.

[Janger]

Сообщение от min@y™

Посчитал: ~150 строк кода вместе с комментами и пустыми. 15 минут кодинга.

Да, весьма не дурно!)