TMediaPlayer воспроизведение используя БД

← →
worldmen (2010-06-06 21:54) [0]

В БД хранястся имена файлов и путь к ним. На форме есть TMediaPlayer - им я и проигрываю mp3 файлы. Вставил процедуру, реагирующую на нажатие кнопки Next:
procedure TFormMP3.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin if Button=btNext then begin IBQuery1.Next; MediaPlayer1.FileName:=Dir+IBQuery1.FieldByName("fname").AsString; MediaPlayer1.Open; MediaPlayer1.Play; end; End;
При этом файл не проигруется, надо нажать на Play.
Но код по дойному щелчку мыши по DBGrid воспроизводит файл:
procedure TFormMP3.DBGrid1DblClick(Sender: TObject); begin MediaPlayer1.FileName:=Dir+IBQuery1.FieldByName("fname").AsString; MediaPlayer1.Open; MediaPlayer1.Play; End;

← →
И. Павел © (2010-06-06 22:19) [1]

if Button=btNext then
Begin
DoDefault:=false;
...

← →
worldmen (2010-06-06 22:57) [2]

Спасибо, получилось, но такая мелочь - кнопка Play при этом активная, чтобы остановить песню надо нажать на Play, а потом на Stop.

← →
И. Павел © (2010-06-06 23:04) [3]

Свойство EnabledButtons позволяет указать, какие кнопки будут активные. Если DoDefault=false, то нужно будет выставлять это свойство самостоятельно.

Забыл написать, что для того, чтобы вручную устанавливать EnableButtons, нужно сначала установить AutoEnable := false;

TMediaPlayer воспроизведение используя БД Найти похожие ветки