unit2.pas

一个图形变化器

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    lb1: TLabel;
    lb2: TLabel;
    lb6: TLabel;
    lb4: TLabel;
    lb3: TLabel;
    lb5: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    bt11: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure bt11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses UniCai;

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
    if lb1.Left>55 then
       lb1.Left:=lb1.Left-5
    else
        begin
        timer1.Enabled:=false;
        timer2.Enabled:=true;
        end;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
    if lb2.Left>80 then
       lb2.Left:=lb2.Left-5
    else
        begin
        timer2.Enabled:=false;
        timer3.Enabled:=true;
        end;
end;

procedure TForm2.Timer3Timer(Sender: TObject);
begin
     if lb3.Left>105 then
        lb3.Left:=lb3.Left-5
    else
        begin
        timer3.Enabled:=false;
        timer4.Enabled:=true;
        end;
end;

procedure TForm2.Timer4Timer(Sender: TObject);
begin
      if lb4.Left>130 then
         lb4.Left:=lb4.Left-5
    else
        begin
        timer4.Enabled:=false;
        timer5.Enabled:=true;
        end;
end;

procedure TForm2.Timer5Timer(Sender: TObject);
begin
     if lb5.Left>155 then
       lb5.Left:=lb5.Left-5
    else
        begin
        timer5.Enabled:=false;
        timer6.Enabled:=true;
        end;
end;

procedure TForm2.Timer6Timer(Sender: TObject);
begin
      if lb6.Left>180 then
       lb6.Left:=lb6.Left-5
    else
        begin
        timer6.Enabled:=false;
        end;
end;

procedure TForm2.Timer7Timer(Sender: TObject);
begin
    lb1.Color:=random(350000);
    lb2.Color:=random(350000);
    lb3.Color:=random(350000);
    lb4.Color:=random(350000);
    lb5.Color:=random(350000);
    lb6.Color:=random(350000);
    lb1.Font.Color:=random(350000);
    lb2.Font.Color:=random(350000);
    lb3.Font.Color:=random(350000);
    lb4.Font.Color:=random(350000);
    lb5.Font.Color:=random(350000);
    lb6.Font.Color:=random(350000);

end;

procedure TForm2.bt11Click(Sender: TObject);
begin

  form1.WindowState:=wsnormal;

  form2.Visible:=false;
end;

end.