unit_play.~pas

mp3播放器的delphi设计

unit Unit_Play;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TFrm_Play = class(TForm)
    Panel_Play: TPanel;
    Timer_JinDu: TTimer;
    procedure FormResize(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer_JinDuTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Play: TFrm_Play;

implementation

uses Unit_Main;

{$R *.dfm}

procedure TFrm_Play.FormResize(Sender: TObject);
var
     Play_Size:TRect;
begin
              Play_Size.Left :=0; Play_Size.Top :=0;
              Play_Size.Right := Frm_Play.Panel_Play.Width;
              Play_Size.Bottom := Frm_Play.Panel_Play.Height;
              Frm_Main.MediaPlayer.DisplayRect := Play_Size;
              Frm_Main.MediaPlayer.Display := Frm_Play.Panel_Play;
end;

procedure TFrm_Play.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
     Action:=CaFree;
     Frm_Main.VCD_Play := False;
     Frm_Main.Play_Stop := False;
     Frm_Main.MediaPlayer.Close;
     Frm_Play.Timer_JinDu.Enabled := False;
     Frm_Main.Panel_JDZSK.Left :=0;
except
     exit;
end;          
end;

procedure TFrm_Play.Timer_JinDuTimer(Sender: TObject);
begin
     if Frm_Main.Play_Stop = True then
        begin
             Frm_Main.Panel_Sum.Caption := IntToStr(Frm_Main.MediaPlayer.Position);
             Frm_Main.Panel_JDZSK.Left :=Round((Frm_Main.Panel_JinDu.Width-Frm_Main.Panel_JDZSK.Width) *
                                          Frm_Main.MediaPlayer.Position/Frm_Main.MediaPlayer.Length);
        end;      
end;

end.