[Blackster]

недавно сам писал мр3 плеер но кнопка back (mediaplayer1.previous) не работала, вот такой код надо писать если есть листбокс.

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ListBox1.ItemIndex > 0 then
        ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
 Label2.Caption := '0:00';
BitBtn1.Down := False;
Play;
end;