procedure TForm1.FormActivate(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ControlCount-1 do
if (Controls[i] is TPanel) and (Controls[i].Align = alLeft)
then Controls[i].Left := Width;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with TPanel.Create(self) do
begin
Parent := self;
Caption := '1';
Align := alLeft;
end;
with TPanel.Create(self) do
begin
Parent := self;
Caption := '2';
Align := alLeft;
end;
with TPanel.Create(self) do
begin
Parent := self;
Caption := '3';
Align := alLeft;
end;
end;