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

[nibufep]

Доброго времени суток!
Возникла такая проблема:

Так создаю Panel и помещаю её в ScrollBox1:

  with TPanel.Create(ScrollBox1) do
  begin
    Parent := ScrollBox1;
    Height := 65;
    Align := alTop;
  end;

А как поместить в созданную панель другие компоненты не пойму... Как это сделать?

[Serge_Bliznykov]

var dynpanel : TPanel;
begin
    dynpanel := TPanel.Create(ScrollBox1);
    with dynpanel  do
    begin
       Parent := ScrollBox1;
       Height := 65;
       Align := alTop;
    end;

    with TLabel.Create(dynpanel) do
    begin
        Parent := dynpanel;
        Left := 10;
        top  := 10    
        caption := 'Метка';
    end;
    
    with TButton.Create(dynpanel) do
    begin
        Parent := dynpanel;
        Left := 300;
        top  := 10    
        caption := 'Кнопка 1';
    end;

.....

[zvygin1964]

Что-то делаю не так...

[Serge_Bliznykov]

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

Что-то делаю не так...

я писал код на форуме, не проверяя.
А что, я где-то накосячил? Что не так?

[zvygin1964]

Вы не можете накосячить. Все так.
Это я не умею воспользоваться этими сокровищами !
Может nibufep даст полный код ? Целиком проект ни в коем случае...

[Serge_Bliznykov]

zvygin1964, Вы мне льстите!

[newerow1989]

1. Добавить

uses ExtCtrls, StdCtrls;

2. Добавить компонент ScrollBox1 на форму

3. Исправить в двух местах:

top  := 10

на

top  := 10;

И откомпилируется хорошо!!!

[zvygin1964]

Красотища !