На форме DBLookupListBox(плэйлист) и MediaPlayer, нужно сделать так чтобы одно нажатие на плэй на одной песне прибавляло +1 к её рейтингу. Подскажите пожалуйста как это сделать или подкиньте идейку.
Нажмите для просмотра прикрепленного файла
procedure TForm1.MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType);
begin
if Button = btPlay then begin // Нажата кнопка Play?
with DBGrid1.DataSource.DataSet do
begin
Edit; // Переходим в режим редактирования
FieldByName('Rating').AsInteger := FieldByName('Rating').AsInteger + 1; // Увеличиваем рейтинг
Post; // Постим изменения в базу
end;
end;
end;