окончание ScrollBar

[Elfist]

Подскажите! Нужно зделать так:

При окончании ScrollBar (т.е когда он доходит до значения max) нужно прибавить к ListBox1.ItemIndex еденицу (Listbox.itemIndex+1; )

Но не получаеться определить конец ScrollBar
параметр Max определяеться программно т.е она постоянно меняеться.
max:=Bass_ChannelGetLength;

Думаю что можно зделать так,но незнаю какой обработчик отвечает за окончанме ScrollBar

if ScrollBar1.Что-то=Bass_channelGetLength then
ListBox1.itemIndex:=ListBox1.ItemIndex+1;

P.S Используеться библеотека Bass 2.4 .Смысл этого: По окончании трека начать проигрывать следующий трек.

Надеюсь доступно пояснил.

[DIgorevich]

а не пробовал свойство Position? Если

if ScrollBar1.Position=Bass_channelGetLength then
ListBox1.itemIndex:=ListBox1.ItemIndex+1;

[Elfist]

Пробовал,но через каждую одну секунду трек начинает проигрываться заного(т.е играет только одну секунду)

и ещё обнаружил такой фак.
псле этой строки

if ScrollBar1.Position=Bass_channelGetLength then
ListBox1.itemIndex:=ListBox1.ItemIndex+1;

Идёт строка

PlayItem(ListBox1.ItemIndex);

Это функция воспроизведения выбранного элемента в ListBox1

Если эту строку опустить,то всё прекрасно работает и переключаеться на следующую песню(но соответственно не воспроизводиться) а если строка существует,то каждую секунду песня проигрываеться заного.
Как бы её прикрутить что бы она срабатывала только когда positon достигает максимум?

[DIgorevich]

А это всё случайно не в обработке таймера???

[Elfist]

Да Scrollbar работает через таймер

[DIgorevich]

Ну тогда естественно песня будет начинаться каждый раз, когда срабатывает таймер )))). Надо хотя бы так написать:

if ScrollBar1.Position=Bass_channelGetLength then
begin
ListBox1.itemIndex:=ListBox1.ItemIndex+1;
PlayItem(ListBox1.ItemIndex);
end;

[Elfist]

Работает!! Спасибо огромное.Теперь буду знать