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

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

  • vitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
  • erectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
  • ed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online

Счетчики