Delphi

Вопрос

Как в Делфи заставить компонент TListView при добавлении новых элементов автоматически прокручиваться для отображения последнего добавленного элемента. В общем, надо использовать TListView для записи протокола работы программы и хотелось бы видеть последнее выполненное действие во время работы программы.

Ответ

Отвечаю:

procedure Test(); var i: integer; begin for i:= 0 to 100 do begin ListBox1.Items.Add(format('Line number %d successfully inserted and scrolled down.', [i])); sleep(100); ListBox1.Perform(WM_VSCROLL, 1, 0); {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^} {Это и есть ответ на заданый вопрос} end; end;

Из конференции Expert_FAQ