Можно ли программно установить произвольную строку в первую позицию 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;

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

  • viagra the team http://gtviagracan.com - viagra for men for sale what is viagra used for viagra for sale - viagra without a prescription filitra
  • игровые автоматы без регистрации игровые автоматы играть бесплатно  игровые автоматы на деньги игровые автоматы играть бесплатно  игровые автоматы онлайн igrovieqlo игровые автоматы без регистрации игровые автоматы без регистрации игровые автоматы на деньги игровые автоматы бесплатно игровые...
  • Alien Robots r en av v rldens b https://1e6c1ee26.weebly.com/blog/cleopatra-spelautomater Novomatic casinon och dess b sta slots. BanksВ and financial institutions from https://8145fb20d.weebly.com/blog/svenska-casinon talar om n r man pratar slots p n tet. As we've mentioned with other games that...

Счетчики