listbox и scrollbar

[blackstersl]

Привет. Как в listbox-e отменить показывание scroll-бара и вместо него исспользовать трекбар. Спасибо.

[Neeter]

Вот небольшой пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
 TrackBar1.Parent := lbox_1;
 TrackBar1.Left := lbox_1.Width - TrackBar1.Width;
 TrackBar1.Top := 0;
 TrackBar1.Height := lbox_1.Height;
 TrackBar1.Max := lbox_1.Items.Count;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 lbox_1.ItemIndex := TrackBar1.Position;
 TrackBar1.Invalidate;
end;

lbox_1 - listbox

[blackstersl]

Это не скрывает превыдущего scroll-бара. Что нужно сделать?

[Ferz-2009]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ShowScrollBar(Listbox1.Handle, SB_VERT, False);
   TrackBar1.Max:=Listbox1.Items.Count;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Listbox1.ItemIndex := TrackBar1.Position;
end;

в таймере ставь 1!
Ну а трэкбар сам подставь на место скролбара в листбоксе!