Проблема с Мп3 плеером!

[helldog]

У меня два вопроса:
1. Как осуществить автоматическое переключение трека, на следующий в компоненте ListBox?
2.Как реализовать Drag&Drop в листбоксе? ( Сам компонент скачал но чтото немогу разобратся)

Заранее благодарен всем!спасибо!

вот код который переключает трек автоматически после окончании предыдущего трека, но нечего не работает=( Где сдесь ошибка?

procedure TForm1.TpsSon1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
 Var
 i:integer;
  begin
  i := Bibliotheque.ItemIndex+1;
 Bibliotheque.SetFocus;
 bibliotheque.Selected[i] := true;
end;

Все нашел проблему,но не решил=( Какая процедура вызывается при достижении ползунком конца скроллбара?

[helldog]

Проблема с автоматическим переключанием песен решена! вот код

procedure TForm1.TpsSon1Change(Sender: TObject);
var
pos : integer;
i:integer;
begin
pos := TabSon[1].LongueurTotal;
Edit1.Text := IntToStr(TpsSon1.Position);
if TpsSon1.Position = pos then
begin
  i := Bibliotheque.ItemIndex+1;
 Bibliotheque.SetFocus;
 bibliotheque.Selected[i] := true;
 lire.Click;
end;
end;

Помогите ктонить реализовать Drag&Drop!!!!! Сколько на форуме народу отписатся никто не желает=((

[raxp]

потому-что такие вопросы решаются поиском: ввиду того, что вы не уникальны в этих вопросах... рекомендую скачать себе delphi-world или DRKB/

[helldog]

Сообщение от raxp

потому-что такие вопросы решаются поиском: ввиду того, что вы не уникальны в этих вопросах... рекомендую скачать себе delphi-world или DRKB/

ну рас вы так уникальны, приведите пожалуйста ссылочку на мануальчик по компонентам Drag&Drop.

З.Ы. Я говорю про нестандартные компоненты делфи.

[Человек_Борща]

У ListBox'а есть свои Drag and Drop, почему их не используете?

1..2 но принцип тот же...

А вообще поиск рулит, и яндекс(гугл тоже, но яндекс ближе) никто не отменил...

Господи почему так сложно в результатах поиска не искать только в "первых результатах" а пощёлкать ещё странички 1, 2, 3 и далее?

Вот по запросу "Delphi Drag&Drop файлов" на Второй странице нашлось "Drag&Drop в плейлисте", - Разве это так сложно?!

[ArtGrek]

вот то что тебе было нужно

procedure TForm1.DropFileTarget1Drop(Sender: TObject;
  ShiftState: TShiftState; APoint: TPoint; var Effect: Integer);
begin
  for i := 0 to DropFileTarget1.Files.Count - 1 do
    ListBox1.Items.Add(DropFileTarget1.Files.Strings[i]);
end;

а ето демки для работы с етим компонентами

[helldog]

Сообщение от ArtGrek

вот то что тебе было нужно

procedure TForm1.DropFileTarget1Drop(Sender: TObject;
  ShiftState: TShiftState; APoint: TPoint; var Effect: Integer);
begin
  ListBox1.Items.Add(DropFileTarget1.Files.Text);
end;

а ето демки для работы с етим компонентами

Вот этого я и ждал. Спасибо тебе огромное! И вы остальные тоже поучитесь=)

[ZuBy]

1, 2

[raxp]

приведите пожалуйста ссылочку на мануальчик по компонентам Drag&Drop

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

рас

правильно пишется - "раз"

[helldog]

Сообщение от raxp

правильно пишется - "раз"

Ну я думаю моя речь всем понятна.
Правила форума соглашусь, нарушил. Извеняюсь за мое поведение. Спасибо всем кто помог. Айл би бэк =)