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

[VirusZ2D]

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

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

 

 

Self.OnApplyStyleLookup := Self.Doapplys;

 

 

procedure Fruit.Doapplys(Sender: TObject);

begin

  Self.Text := get_title;

end;

 

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

[aleksandrguru]

ListBox.BeginUpdate;

ListBox.EndUpdate;

[VirusZ2D]

события не подхватывается ((

[VirusZ2D]

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

 

procedure updateitem();

begin

    Form1.Listbox1.BeginUpdate;

        for i := 0 to Length(fruit)-1 do

            fruit.DoApplyStyleLookup;

    Form1.Listbox1.EndUpdate;

 

end;

[Belov.V.]

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

 

Что-то типа:

 

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

ListBox.ListItems.HitTest := True;

ListBox.ListItems.OnApplyStyleLookup := Self.Doapplys;

 

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