Hi
Den Player Pausieren? Das ist unschön. Mach dir ne variable mit der du den slider temporär ausschaltest (Pausierst) dazu solltest du onMouseDown, MouseUp benutzen.
Delphi-Quellcode:
Var Scroling : Boolean;
procedure TMain_Form.SliderMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Scroling:= true;
end;
procedure TMain_Form.SliderMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
With AudioPlayer do
begin
Scroling:= false;
Set_TimeMS(trunc(Get_SongLength * Slider.Position / Slider.Max + 0.1));
end;
end;
procedure TMain_Form.Slider_tmTimer(Sender: TObject);
begin
With AudioPlayer do
begin
if Scroling = false then
Slider.Position:= round((slider.Max / Get_SongLength) * Get_TimeMS+ 0.1)
end;
end;
Wen ich en Track lade zeigt er mir die fasche Position. warum setzt du den Slider nicht direkt auf max 100?
Ansonst ist dein Code für mich verwirrend.
Du solltest dir zwei Funktionen bauen eine mit Set_SoundInfo() und die andere mit Get_SoundInfo()
Du solltest dir das anschauen
http://www.delphipraxis.net/internal...ct.php?t=41480