Всем привет.
Когда добавляю в TListBox новый Item, и в дизайнере ставлю свойство WordWrap = True, то текст успешно переносится на новую строку. Но если добавлять динамически в TListBox новые Item - то текст не переносится.
Добавляю так:
procedure TFrame1.GenerateTestVis;
var
x: integer;
Itm: TListBoxItem;
begin
ListBox1.Clear;
ProgressBar1.Value := TestQA1.ItemIndex + 1;
Label1.Text := TestQA1.ItemSelected.Quest;
for x := 0 to TestQA1.ItemSelected.Count - 1 do
begin
Itm := TListBoxItem.Create(ListBox1);
Itm.WordWrap := true;
Itm.Text := TestQA1.ItemSelected.Answers[x].Answer;
// Itm.WordWrap := true;
ListBox1.AddObject(Itm);
//Пользуясь случаем:Itm.Free потом ListBox сам сделает, да?
end;
end;
Но длинный текст не переносится на новую строку, и "уходит в глубь" формы.
Выделенный на скрине Итем - я добавил в дизайнере. А вот второй - с помошью вышеописанного кода.
Вот собственно необходимо добавить перенос длинного текста для Итемов, которые добавляются динамически.
Спасибо.