MusikPlayer

[BullsEye]

Also nochma von vorne:
Ich versuche einen Musikplayer zu schreiben.Der erste Versuch war naja net so gut, wie gesagt nur ein Titel von der lokalen Platte.
Was noch Fehlt:
-Layout(Vorerst net wichtig)
-Visualiesierungen (erstmal auch net so wichtig)
-Playliste
-Fenster in dem Titel etc angezeigt wird

Der bisherige Code lautet:

Delphi-Quellcode:

unit AudioPlayer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    AudioPlayer1: TMediaPlayer;
    Animate1: TAnimate;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.Color := clred;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
AudioPlayer1.Height := AudioPlayer1.Height+10;
AudioPlayer1.Width := AudioPlayer1.Width+10;
Animate1.Height := Animate1.Height+10;
Animate1.Width := Animate1.Width+10;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
AudioPlayer1.Height := AudioPlayer1.Height-10;
AudioPlayer1.Width := AudioPlayer1.Width-10;
Animate1.Height := Animate1.Height-10;
Animate1.Width := Animate1.Width-10;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
AudioPlayer1.Left := AudioPlayer1.Left+10;
AudioPlayer1.Top := AudioPlayer1.Top+10;
Animate1.Left := Animate1.Left+10;
Animate1.Top := Animate1.Top+10;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
AudioPlayer1.Left := AudioPlayer1.Left-10;
AudioPlayer1.Top := AudioPlayer1.Top-10;
Animate1.Left := Animate1.Left-10;
Animate1.Top := Animate1.Top-10;
end;

end.