Musiktitel anzeigen

[KingofWerlte]

Delphi-Quellcode:

var
  Form1: TForm1;
  SetNewPos:Boolean;

implementation

uses MPVideo;

{$R *.dfm}
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
begin
  { Volume: 0 - 1000 }
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
if opendialog1.execute
  then mediaplayer1.filename:=opendialog1.filename;
  mediaplayer1.open;
  SetMPVolume(MediaPlayer1, 500);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  IF Mediaplayer1.Mode=mpplaying then
    begin
      Trackbar1.Enabled:=true;
      Trackbar1.Max:=Mediaplayer1.Length;
      Trackbar1.Position:=Mediaplayer1.Position;
    end else
    begin
      Trackbar1.Enabled:=false;
      Trackbar1.Max:=0;
      Trackbar1.Position:=0;
    end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
     if csLButtonDown in TrackBar1.ControlState then
        begin
          timer1.Enabled:=false;
          SetNewPos:=True;
        end;
     if SetNewPos then begin
        if not (csLButtonDown in TrackBar1.ControlState) then
           begin
             MediaPlayer1.Position:=TrackBar1.Position;
             MediaPlayer1.Play;
             SetNewPos:=False;
             timer1.Enabled:=true;
           end;
           end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF Mediaplayer1.Mode=mpplaying then
    begin
      ProgressBar1.Enabled:=true;
      ProgressBar1.Max:=Mediaplayer1.Length;
      ProgressBar1.Position:=Mediaplayer1.Position;
    end else
    begin
      ProgressBar1.Enabled:=false;
      ProgressBar1.Max:=0;
      ProgressBar1.Position:=0;
    end;
end;

end.

Die Gimicks wie Farbe ändern des Hintergrunds usw. hab ich weggelassen