[poli-smen]

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

Код:

.....
procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 Pages: array [0..20] of TPanel;
begin
 Pages[i]:= TPanel.Create(Self);
    with Pages[i] do
     begin
      Parent:=Panel1;
      Align:=alLeft;
      AlignWithMargins:=True;
.....

Вот здесь, перед присвоением свойству Align значения alLeft сделай так:

Код:

Left := Panel1.Width;

тогда панельки будут добавляться справа, а не слева.

А у тебя что, массив Pages локальный? И ты думаешь в нём будут храниться все созданные панельки?

А вот чтобы панельки растягивались на всю родительскую панель, то здесь Align уже не поможет. Нужно самому рассчитывать размеры всех панелек и по событию TForm1.Panel1Resize заново их пересчитывать.