Можно ли программно установить произвольную строку в первую позицию TListBox?

Для установки любой строки в произвольную позицию в окне TListBox можно послать сообщение:

SendMessage(ListBox1.Handle, lb_SetTopIndex, SpinEdit1.Value-1, 0);

где первым параметром передается указатель на компонент, вторым - сообщение, третьим - номер устанавливаемой строки и позиция в окне на которую перемещается указанная строка.

Строки нумеруются с нуля.

Пример:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 
 TRY
 
  SendMessage(ListBox1.Handle, lb_SetTopIndex, SpinEdit1.Value-1,0);
 
 FINALLY
 END;
 
end;

Последние комментарии

  • buy cialis online in australia http://tadmedz.com cheap levitra pills http://cialisxtl.com cheap viagra 100mg
  • buy viagra over counter uk how to get cialis samples buy generic cialis uk
  • Трудно себе представить современного человека, ни разу не пробовавшего сыр. Этот продукт настолько привычен в нашем рационе, что мы даже не задумываемся, как он впервые попал на наш стол и какова история его появления. На нашем сайте собрано больше 50 сортов сыра с описаниями. Детальную информацию...

Счетчики