ListBox1.ScrollToItem(Item);

[Леонид Кудацкий]

Процедура  Process заполняет Listbox:

procedure TForm1.Process;
Const
   N=100;
var
  I,Index:Integer;
  Item:TListBoxItem;
begin
for I := 1 to N do
    begin
    Item:=TListBoxItem.Create(ListBox1);
    Item.Text:=IntToStr(I);
    ListBox1.AddObject(Item);
    end;
ListBox1.ScrollToItem(Item);
end;

Нужно, чтобы после заполнения Listbox скролировал в конец.

Если процедура запускается нажатием кнопки, то всё нормально.

А если из события формы FormCreate, то Listbox заполняется,

а скролирование не происходит.

Где тут собака порылась ?

[mmover]

Попробуйте так :

procedure TForm1.Process;
Const
   N=100;
var
  I,Index:Integer;
  Item:TListBoxItem;
begin
for I := 1 to N do
    begin
    Item:=TListBoxItem.Create(ListBox1);
    Item.Text:=IntToStr(I);
    ListBox1.AddObject(Item);
    end;

    ListBox1.ApplyStyleLookup; // (создаст ContentLayout)
    ListBox1.ScrollToItem(Item);
end;

[Леонид Кудацкий]

mmover>Спасибо, получилось !