unit1.pas

来自「一个网站导航的小软件,体积小,是上网的辅助工具,有源码」· PAS 代码 · 共 104 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, ExtCtrls, jpeg, XPMan, StdCtrls,unit2,
  MPlayer;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    Image1: TImage;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MediaPlayer1: TMediaPlayer;
    procedure Timer1Timer(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label3MouseLeave(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 windowsmediaplayer1.Visible :=false;
 image1.Visible :=true;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 label1.Font.Size :=18;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 label1.Font.Size :=14;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 label2.Font.Size :=18;
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
 label2.Font.Size :=14;
end;

procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 label3.Font.Size :=20;
end;

procedure TForm1.Label3MouseLeave(Sender: TObject);
begin
 label3.Font.Size :=14;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
 mediaplayer1.Stop;
 form2.Show;
 form1.hide; //窗体隐藏。
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 mediaplayer1.Open;
 mediaplayer1.Play;
end;

end.