Danke für deine Antwort!
So sieht meine Routine aus:
Delphi-Quellcode:
lbxFAQ.BeginUpdate;
lbxFAQ.Clear;
for i := 0 to FItems.Count-1 do
begin
CreateListBoxGroupHeader(lbxFAQ,FItems[i].Question);
tail := CreateListBoxItem(lbxFAQ,FItems[i].Answer);
tail.WordWrap := true;
end;
lbxFAQ.EndUpdate;
Wenn ich da an diversen Stellen repaint einfüge ändert das leider nichts.