Вопрос по ListBox

[yura-cat]

Ккк добиться того чтобы : Каждое поседующее сообщение становилось на верхнюю позицию, а остальные сдвигались вниз?
А то, у меня получается, что старое висит вверху, а новые вниз уходят)

[AVer]

Procedure MyAdd(S:String);
Var I:Integer;
Begin
ListBox1.Items.Add('');
For I:=ListBox1.Items.Count-1 To 1 Do
ListBox1.Items.Strings[I]:=ListBox1.Items.Strings[I-1];
ListBox1.Items.Strings[0]:=S;
End;

[yura-cat]

Спасибо, а проще кстати никак нельзя?
мне теперь в каждую команду " listBox1.Items.Add('тест'); "
вставлять этот код?

[vovk]

Сообщение от yura-cat

Ккк добиться того чтобы : Каждое поседующее сообщение становилось на верхнюю позицию, а остальные сдвигались вниз?
А то, у меня получается, что старое висит вверху, а новые вниз уходят)

ListBox1.Items.Insert(0,'текст');

этого должно хватить

[yura-cat]

Большое спасибо

[yura-cat]

Кстати, можно ли ограничить колличество возможных строк?
чтобы ограничивало

[vovk]

Сообщение от yura-cat

Кстати, можно ли ограничить колличество возможных строк?
чтобы ограничивало

Свойства по моему такого нет.. не помню по крайней мере.

а так просто проверку

if ListBox1.Count<5 then  ListBox1.Items.Insert(0,'текст')
else
ShowMessage('больше низзя');

[AVer]

If ListBox1.Items.Count = X Then ListBox1.Items.Delete(X-1);

Где Х - количество строк. При добавлении следующих нижние будут удаляться.