unit2.pas

生日闹钟源文件

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer2: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  n:integer;
implementation

uses Unit1;

{$R *.dfm}
procedure delay(i:integer);
var
 h,n,p:integer;
begin
 for h:=0 to i do
  begin
   for n:=0 to i do
    inc(p);
  end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
 bmp:tbitmap;
 i,h,w:integer;
begin
 bmp:=tbitmap.Create ;
 h:=image1.Height ;
 w:=image1.Width ;
 bmp.Height :=h;
 bmp.Width :=w;
 for i:=0 to w do
  Begin
   if (i mod 2)=0 then
    Begin
    delay(1000);
    bmp.Canvas.CopyRect(rect(i,0,i+1,h),image1.Canvas,rect(i,0,i+1,h));
    End
   Else
    Begin
     delay(1000);
     bmp.Canvas.CopyRect(rect(w-i+1,0,w-i,h),image1.Canvas,rect(w-i+1,0,w-i,h));
  End;
  Form2.Canvas .Draw(image1.Left,image1.Top,bmp);

  end;
  inc(n);
  if n=2 then
   begin
    form2.close;
   end;
end;




procedure TForm2.Timer2Timer(Sender: TObject);
var
a:integer;
begin
 for a:=0 to 100 do
 delay(1000);
 form2.Close;
end;

end.