Afspiller animate1 når Mediaplayer.play; og Animate.stop; når...

Du kan bruge parameteren Button i MediaPlayerens OnClick event, til at afgøre hvilken knap der er trykket på

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  case Button of
    btPlay          : Animate1.Play(0, 100, 0);
    btPause, btStop : Animate1.Stop;
  end;
end;

Det virker ikke den siger at der er fejl

Hvilken type fejl er det?

sorry havde lidt travlt da jeg skrev det!!!
Min mediaplayer1.click ser nu sådan ud:

procedure TForm2.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
var
  mp3: TMusikFil;
begin
  case button of
    btPlay          : Animate1.Play(0, 100, 0);
    btPause, btStop : Animate1.Stop;
    btNext:
      if ListBox1.ItemIndex <> ListBox1.Items.Count then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex+1;
          MediaPlayer1.AutoEnable := true;
          end;

    btPrev:
      if ListBox1.ItemIndex <> 0 then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex-1;
          ListBox1DblClick(sender);
    end;
  end;
end;

men så skriver den:
ved btprev og btnext at:
[Error] Unit2.pas(64): Incompatible types: 'TMPBtnType' and 'TUDBtnType'
hvad gør jeg galt?

m.v.h. ProDoc

det kan være btPlay, btPause etc er defineret i en anden unit. Prøv at sætte MPlayer. foran

case button of
    MPlayer.btPlay          : Animate1.Play(0, 100, 0);
    MPlayer.btPause, MPlayer.btStop : Animate1.Stop;
    MPlayer.btNext:
      if ListBox1.ItemIndex <> ListBox1.Items.Count then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex+1;
          MediaPlayer1.AutoEnable := true;
          end;

    MPlayer.btPrev:
      if ListBox1.ItemIndex <> 0 then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex-1;
          ListBox1DblClick(sender);
    end;
  end;

Det virker ikke....jeg prøvede også koden herunder...
Den starter programmet men det virker bare ikke!!!?

(Animate1 er Active := false fra start!!)

case button of
    MPlayer.btPlay          : Animate1.Active :=  true;
    MPlayer.btPause, MPlayer.btStop : Animate1.Active := false;
    MPlayer.btNext:
      if ListBox1.ItemIndex <> ListBox1.Items.Count then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex+1;
          MediaPlayer1.AutoEnable := true;
          end;

    MPlayer.btPrev:
      if ListBox1.ItemIndex <> 0 then
      begin
          try
            MediaPlayer1.Stop;
          except
          end;
          ListBox1.ItemIndex := ListBox1.ItemIndex-1;
          ListBox1DblClick(sender);
    end;
  end;

m.v.h. ProDoc

Men hvad er det der ikke virker? Afspilles musikken ikke, eller er det animationen der ikke kører?

Musikken virker fint.... men Animationen virker ikke!!!
Jeg har det sådan at der er en listbox med nogle sange i, men det er sat til mediaplayeren, så det burde virke...?

Prøv at lave et nyt project, og skriv et par linier kode, der afspiller en avi, for at isolere problemet. Er du sikker på at det ikke er avi filen den er gal med. Der må ikke være lyd på den.

jamen den vil godt afspille filmen men, den vil bare ikke afspille den når jeg vil have den til det......
den vil heller ikke stoppe filmen sammen med Mediaplayer1.stop?

Det fatter jeg ikke. Jeg har lige afprøvet det, og det virker fint. Prøv evt. at lave en ShowMessage i btPlay, for at se om det bliver udført. Du kan også prøve at steppe gennem koden, hvis du da ikke allerede har det.

he jeg er ikke så super til at gennemskue fejl...
er din animate1 aktiv fra starten?

Det gør ingen forskel om den er aktiv eller ej. Jeg bruger desuden Play metoden...

nu ved jeg hvad der er galt.... der er fordi jeg har en Coolform (et komponent der gør at en bestemt farve er transparent, og jeg har sat mediaplayeren foran farven så den er usynlig. Jeg starter filerne ved enten at trykke på en knap der er defineret som Mediaplayer1.Rewind; eller en som er defineret som Mediaplayer1.Play;, men det er også muligt at starte en sang ved at dobbeltklikke på en sang i listboxen.....!!!!
så kort fortalt...jeg er en klummer...... :)
kunne jo bare indsætte Animate1.Play(0, 100, 0); eller Animate.stop; ved knapperne og ved listbox1.Dubbleclik

Sorry Nico22....
Her er dine points.....


m.v.h. ProDoc

ps. du får også lige nogle points for mit sidste spm....

Nico gider du ikke lige oprette et Spørgsmål.....
så jeg kan prøve at komme over det her.. :)

Kender det godt - man bruger timer på at lede efter en fejl, og så er det bare en latterlig lille ting.

man kan åbenbart ikke trykke advanceret når det kun er et 15 point spm..? er det i orden du får de ekstra point senere?

Tænk ikke over det - det vigtigste er at du fik løst problemet :)

heh tak... jeg opretter lige et spm mere... har et spm til... :)
noget med en listbox og få mediaplayeren til automatisk at gå til næste sang på listen når sangen er færdig... :)