Добавить новые строки в TListBox с прокруткой до конца

Delphi , Компоненты и Классы , Списки

Автор: BadBoy
WEB-сайт: http://delphibase.endimus.com

procedure addmsg(str: string);
begin
  if str <> '' then
  begin
    ListBox.Items.Add(str);
    ListBox.Perform(LB_SETTOPINDEX, Pred(ListBox.Items.Count), 0);
  end;
end;

Статья Добавить новые строки в TListBox с прокруткой до конца раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Списки ::