[jhonalone]

Hola amigos. Yo y mis rarezas.
El título lo dice. Añado controles (TListView y TRctangle) al TFramedVertScrollBox y no salen en el orden añadido. Bueno, la primera vez SI. Las sucesivas NO. Os pongo un trozo de código que uso.

Código Delphi [-]
// Borro los controles anteriores
for xx := FramedVertScrollBox2.ChildrenCount-1 downto 0 do
  if (FramedVertScrollBox2.Children[xx] is TRectangle) or
      (FramedVertScrollBox2.Children[xx] is TListView)
  then
    FramedVertScrollBox2.RemoveObject(FramedVertScrollBox2.Children[xx]);

    // Hay que poner las posiciones a cero para que queden en su sitio
Rectangle7.Position.Y := 0;
Rectangle8.Position.Y := 0;
Rectangle9.Position.Y := 0;
Rectangle10.Position.Y := 0;
Rectangle11.Position.Y := 0;

ListView1.Position.Y := 0;
ListView2.Position.Y := 0;
ListView3.Position.Y := 0;
ListView4.Position.Y := 0;
ListView5.Position.Y := 0;


// Después añado los controles
        FramedVertScrollBox2.AddObject(Rectangle7);
        FramedVertScrollBox2.AddObject(ListView1);

        FramedVertScrollBox2.AddObject(Rectangle8);
        FramedVertScrollBox2.AddObject(ListView2);

        FramedVertScrollBox2.AddObject(Rectangle9);
        FramedVertScrollBox2.AddObject(ListView3);

        FramedVertScrollBox2.AddObject(Rectangle10);
        FramedVertScrollBox2.AddObject(ListView4);

        FramedVertScrollBox2.AddObject(Rectangle11);
        FramedVertScrollBox2.AddObject(ListView5);

Repito, la primera vez salen en el orden que los he añadido.

Las sucesivas me junta los rectángulos al final, pero no todos... Me junta los TListView... Inserta entre los ListView algún TRectangle... Y me mantiene la posición del desplazamiento vertical, que me gustaría que empezara el ScrollBars, siempre, en el principio.

Vamos, un desastre.

Todos los controles están alineados al Top

Agradezco cualquier sugerencia.

Saludos.