Перейти к содержанию
Fire Monkey от А до Я
  • 0

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 заполняется,

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

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

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

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

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;

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...