unit2.~pas

确的目录

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    bsSkinButton1: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  less:integer;
implementation
uses unit1;
{$R *.dfm}

procedure TForm2.bsSkinButton1Click(Sender: TObject);
begin
  form2.Close;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  less := 6;
  Timer1.Interval:=1000;
  Timer1Timer(nil);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  less := less - 1;
  bsSkinLabel2.Caption := IntToStr(less)+'秒';
  if less = 0 then
  begin
    Timer1.Interval:=0;
    Form2.Close;
  end;
end;

procedure TForm2.FormResize(Sender: TObject);
begin
  Form2.Width := 389;
  Form2.Height:= 96;

end;

end.