Buttons in Mediaplayer aktivieren

[Sunlight7]

Abend!

Definiere Dein Problem genau ;)

[Flom]

okay :)
Ich habe ein Listview wo Songs Samt Pfad gespeichert werden. Bei einem Doppelklick darauf soll er den Song Abspielen. Klappt soweit Prima, nur man muss wieder extra auf den Playbutton klicken damit der Stop und Pause Button erscheint. was ich A lästig finde und B ja nicht so Benutzer freundlich ist.
Und damit du nicht die Glaskugel raus holen musst hier etwas Code

Delphi-Quellcode:

procedure TForm1.ListView1DblClick(Sender: TObject);
var playdir,playfile:string;
    playItemIndex:integer;
begin
      playItemIndex:=ListView1.ItemIndex;
      ListView2.ItemIndex   := playItemIndex;
      playdir  := ListView2.Items.Item[ListView2.ItemIndex].SubItems[2];
      playfile :=  ListView2.Items.Item[ListView2.ItemIndex].SubItems[3];
      MediaPlayer1.FileName := playdir + playfile;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
      MediaPlayer1.EnabledButtons:=[btPause, btStop]; 
      MediaPlayer1.Pause;
      MediaPlayer1.Stop;
      MediaPlayer1.EnabledButtons:=[btPlay]; 
      MediaPlayer1.Play; // damit er es gleich abspielt beim Doppelklicken
end;

[Sunlight7]

Abend!

Zuerst mal wundere ich mich etwas darüber, das Du .Play 2 x aufrufst, folgendes würde genügen:

Delphi-Quellcode:

MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.EnabledButtons:=[btPause, btStop];

Hast Du zufällig im OI die Eigenschaft AutoEnabled auf True?
Wenn ja, dann setz sie auf False, sonst werden die EnabledButtons ignoriert ;)

Grüßle!

[Flom]

danke geht jetzt :wall: lag am enabled