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

Как обновить Items в Listboxe


VirusZ2D

Вопрос

Доброго времени суток. Как обновить видимую часть в Listbox ? 

В общем создаю итемы вешаю обработчик 

 

 

Self.OnApplyStyleLookup := Self.Doapplys;

 

 
procedure Fruit.Doapplys(Sender: TObject);
begin
  Self.Text := get_title;
end;

 

и пока я не прокручу список событие не возникает как лучше обновить итемы ? 

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

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

  • 0

не нашел другого способа как пройтись циклом по итемам так как событие возникает во время присвоения стиля  

 

procedure updateitem();

begin

    Form1.Listbox1.BeginUpdate;
        for i := 0 to Length(fruit)-1 do
            fruit.DoApplyStyleLookup;
    Form1.Listbox1.EndUpdate;

 

end;

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

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

 

Что-то типа:

 

i  := ListBox.Items.Add('Ваше содержание...');

ListBox.ListItems.HitTest := True;

ListBox.ListItems.OnApplyStyleLookup := Self.Doapplys;
 

(Возможно из описания не совсем понял постановку задачи, но примерно то что выше у меня работает)

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

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

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

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

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

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

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

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

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

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