Es geht weiter
Nun habe ich 2 Buttons um die Videos (Video-Namen in der Liste) zu wählen (Nächste und Vorherige):
Delphi-Quellcode:
procedure TForm1.NaechsteClick(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1
end;
procedure TForm1.VorherigeClick(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex -1;
end;
Wie soll nun der Code lauten?
Das ausgewählte Video in der FileListBox (
FileListBox1.ItemIndex) soll aufgerufen werden . Aber wie?
Delphi-Quellcode:
//MediaPlayer1.FileName:='01.avi';
MediaPlayer1.FileName:=???;
MediaPlayer1.open;
MediaPlayer1.Display:=panel1;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Play;
---