как прокрутить ListBox с помощью TrackBar

[Dr.Badnezz]

Всем привет!!! Вопрос:
как прокрутить ListBox с помощью TrackBar? Подскажите пожалуйста

[UnD)eaD)Snake]

ничего не приходит в голову кроме как

procedure TrackBar1Change(Sender: TObject);
begin
listbox1.ItemIndex:=round((trackbar 1.Position / (trackbar1.Max / listbox1.Items.Count)));
end;

и придется обнулять
listbox1.ItemIndex:=-1
чтобы визуально не было видно меняющийся itemindex..

[ViktorXP]

ну а я как всегда попробовал свое любимое WinApi
но прикол состоит в самой корявости стандартного ListBox
если послать собщение

SetScrollPos(ListBox1.Handle, SB_VERT, TrackBar1.Position,true);

то видно что скрол скрол двигается но при этом итемсы остаются на месте. посмотрел исходники и обнаружил что там это событие не обрабатывается. А вот скрол создает система и двигает им вот изза этого и казус тако. у их там изминение позицыи стоит либо от мыши либо от клавиши. посему прийдется перейти на какойто другой компонент либо дописать его.
если понадобится то вот получение инфы от скрола

procedure TForm1.ChangeList;
var
  lpMinPos, lpMaxPos: Integer;
begin
  GetScrollRange(ListBox1.Handle, SB_VERT, lpMinPos, lpMaxPos);
  TrackBar1.Min := lpMinPos;
  TrackBar1.Max := lpMaxPos;
  TrackBar1.Position := GetScrollPos(ListBox1.Handle, SB_VERT);
end;

[Nester]

 //Scroll Up
 SendMessage(ListBox1.Handle, WM_VSCROLL, 0, 0);
 //Scroll down
 SendMessage(ListBox1.Handle, WM_VSCROLL, 1, 0);

[Dr.Badnezz]

Всем спасибо!