TrackBar Song SetPosition

[Wishmaster]

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