Hi!
Der Aufruf geschieht ja so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetMPVolume(MediaPlayer1, 500);
end;
Das müsste man dann etwa so ändern:
Delphi-Quellcode:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
SetMPVolume(MediaPlayer1, Trackbar1.Position);
end;
Wie du siehst, wird das ganze jetzt im OnChange-Ereignis der Trackbar aufgerufen.
Sinnvollerweise sollte die Trackbar folgendermaßen eingestellt werden:
Max: 1000
Frequenzy: 20 (abhängig von Länge etwas zu verändern, bis der Abstand ordentlich aussieht)
Ciao Frederic