Listbox + Media

Hvordan har du koblet Listbox og Mediaplayer sammen?

Det har jeg ikke rigtig gjort?

Så forstår jeg ikke hvad du forventer at der skal ske når du trykker på Mediaplayer1.next?

Hvad med
Next:
MediaPlayer1.FileName := IntToStr(ListBox1.ItemIndex+1);
Back:
MediaPlayer1.FileName := IntToStr(ListBox1.ItemIndex-1);

Har ikke testet..

Det virker ikke scorpe..

Kroning, jeg vil gerne høre om der er nogle forslag til at forbinde disse to. heh :D

Hmm..
Tar på ferie imorgen, men kan du ikke få nogen til at rette min kode? :)

Jeg kan ikke lige se hvad scorpe´s kode skal bruges til så den har jeg ikke bygget videre på.
Dette virker hvis du har en TListBox (ListBox1) og en TMediaPlayer (MediaPlayer1) på din form:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    MediaPlayer1.FileName:=ListBox1.Items[ListBox1.ItemIndex];
    MediaPlayer1.Open;
    MediaPlayer1.Play;
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
    if not (Button in [Button,btPrev]) then
      exit;

    DoDefault:=false;
    case Button of
      btNext : ListBox1.Perform(WM_KEYDOWN, VK_DOWN,0);
    btPrev : ListBox1.Perform(WM_KEYDOWN, VK_UP,0);
  end;
end;

Fejl: Det skal self. være:
if not (Button in [btNext,btPrev]) then
      exit;

Kroning din kode kommer med en fejl..

[Pascal Error] Unit1.pas(182): E2010 Incompatible types: 'TMPBtnType' and 'TUDBtnType'

Det virker fint her. Hvilken linie kommer fejlen på? Og hvilken Delphi version bruger du?

den kommer på disse linier:

      btNext : ListBox1.Perform(WM_KEYDOWN, VK_DOWN,0);
    btPrev : ListBox1.Perform(WM_KEYDOWN, VK_UP,0);

Jeg kan ikke få det til at virke.. Jeg bruger delphi 2006.
hvis du vil kan du sende en sample med den til mig?

Jeg bruger Delphi 7, der er nok blevet ændret lidt på TMediaPlayer i D2006. Men der er nok kun småting du skal rettes.

Jeg har testet på begge dele.. Uden held..

Begge dele hvad?

Hvis det er Delphi 7 du har testet med så skal det virker, gør det ikke det må det være dig der gør noget forkert. Prøv at lave en lille test unit og poste hele koden her hvis det heller ikke virker.

jeg får stadig fejl i denne del af koden:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
if not (Button in [btNext,btPrev]) then
      exit;

    DoDefault:=false;
    case Button of
      btNext : listBox1.Perform(WM_KEYDOWN, VK_DOWN,0);
    btPrev : listBox1.Perform(WM_KEYDOWN, VK_UP,0);
  end;
end;

Jeg har ikke D2006 så jeg har svært ved at hjælpe mere.

det er i Delphi 7 jeg også får fejlen

Ja det er jo mystisk da det virker fint her i Delphi 7

Kan det være pga at mit program ikke bruger knapperne på mediaplayeren? jeg har addet nogle Timages som jeg bruger som buttons..

Hey kroning fik det dog til at virke ;)

Jeg fjernede bare noget at koden og ændrede den til mit behov og så virkede det, tak skal du have smid et svar ;)

k