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

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Автор: 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;