xieyuan0553 发表于 2015-9-26 21:12:12

一闪而过

本帖最后由 xieyuan0553 于 2015-9-26 21:13 编辑

Form1窗体
unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Timer2: TTimer;
    Label3: TLabel;
    Label4: TLabel;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Label1.Visible:=true;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    timer1.Enabled:=false;
    timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
    Label1.Visible:=false;
    Label2.Visible:=true;
    Label3.Visible:=false;
    Label4.Visible:=false;
    timer2.Enabled:=false;
    timer3.Enabled:=true;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=true;
    Label4.Visible:=false;
    timer3.Enabled:=false;
    timer4.Enabled:=true;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=true;
    timer4.Enabled:=false;
    timer5.Enabled:=true;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Form1.Hide;
    Form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Randomize;
    timer1.Enabled:=false;
    timer2.Enabled:=false;
    timer3.Enabled:=false;
    timer4.Enabled:=false;
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
    Randomize;
    sleep(2000);
    Label5.Visible:=false;
    Label6.Visible:=false;
    timer1.Enabled:=true;
    Label1.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label2.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label3.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label4.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Label1.Left:=Random(Form1.Width-Label1.Width-38);
    Label2.Left:=Random(Form1.Width-Label2.Width-38);
    Label3.Left:=Random(Form1.Width-Label3.Width-38);
    Label4.Left:=Random(Form1.Width-Label4.Width-38);
    Label1.Top:=Random(Form1.Height-Label1.Height-38);
    Label2.Top:=Random(Form1.Height-Label2.Height-38);
    Label3.Top:=Random(Form1.Height-Label3.Height-38);
    Label4.Top:=Random(Form1.Height-Label4.Height-38);
end;

procedure TForm1.Label6Click(Sender: TObject);
begin
    Randomize;
    sleep(2000);
    Label5.Visible:=false;
    Label6.Visible:=false;
    timer1.Enabled:=true;
    Label1.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label2.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label3.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label4.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Label1.Left:=Random(Form1.Width-Label1.Width-38);
    Label2.Left:=Random(Form1.Width-Label2.Width-38);
    Label3.Left:=Random(Form1.Width-Label3.Width-38);
    Label4.Left:=Random(Form1.Width-Label4.Width-38);
    Label1.Top:=Random(Form1.Height-Label1.Height-38);
    Label2.Top:=Random(Form1.Height-Label2.Height-38);
    Label3.Top:=Random(Form1.Height-Label3.Height-38);
    Label4.Top:=Random(Form1.Height-Label4.Height-38);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Randomize;
    sleep(2000);
    Timer1.Interval:=600;
    Timer2.Interval:=600;
    Timer3.Interval:=600;
    Timer4.Interval:=600;
    Timer5.Interval:=600;
    Button1.Visible:=false;
    Button2.Visible:=false;
    Button3.Visible:=false;
    Label5.Visible:=false;
    Label6.Visible:=false;
    timer1.Enabled:=true;
    Label1.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label2.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label3.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label4.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label1.Font.Size:=24;
    Label2.Font.Size:=24;
    Label3.Font.Size:=24;
    Label4.Font.Size:=24;
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Label1.Left:=Random(Form1.Width-Label1.Width-38);
    Label2.Left:=Random(Form1.Width-Label2.Width-38);
    Label3.Left:=Random(Form1.Width-Label3.Width-38);
    Label4.Left:=Random(Form1.Width-Label4.Width-38);
    Label1.Top:=Random(Form1.Height-Label1.Height-38);
    Label2.Top:=Random(Form1.Height-Label2.Height-38);
    Label3.Top:=Random(Form1.Height-Label3.Height-38);
    Label4.Top:=Random(Form1.Height-Label4.Height-38);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Randomize;
    sleep(2000);
    Timer1.Interval:=400;
    Timer2.Interval:=400;
    Timer3.Interval:=400;
    Timer4.Interval:=400;
    Timer5.Interval:=400;
    Button1.Visible:=false;
    Button2.Visible:=false;
    Button3.Visible:=false;
    Label5.Visible:=false;
    Label6.Visible:=false;
    timer1.Enabled:=true;
    Label1.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label2.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label3.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label4.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label1.Font.Size:=20;
    Label2.Font.Size:=20;
    Label3.Font.Size:=20;
    Label4.Font.Size:=20;
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Label1.Left:=Random(Form1.Width-Label1.Width-38);
    Label2.Left:=Random(Form1.Width-Label2.Width-38);
    Label3.Left:=Random(Form1.Width-Label3.Width-38);
    Label4.Left:=Random(Form1.Width-Label4.Width-38);
    Label1.Top:=Random(Form1.Height-Label1.Height-38);
    Label2.Top:=Random(Form1.Height-Label2.Height-38);
    Label3.Top:=Random(Form1.Height-Label3.Height-38);
    Label4.Top:=Random(Form1.Height-Label4.Height-38);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Randomize;
    sleep(2000);
    Timer1.Interval:=200;
    Timer2.Interval:=200;
    Timer3.Interval:=200;
    Timer4.Interval:=200;
    Timer5.Interval:=200;
    Button1.Visible:=false;
    Button2.Visible:=false;
    Button3.Visible:=false;
    Label5.Visible:=false;
    Label6.Visible:=false;
    timer1.Enabled:=true;
    Label1.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label2.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label3.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label4.Caption:=chr(97+Random(26))+chr(97+Random(26));
    Label1.Font.Size:=16;
    Label2.Font.Size:=16;
    Label3.Font.Size:=16;
    Label4.Font.Size:=16;
    Label1.Visible:=false;
    Label2.Visible:=false;
    Label3.Visible:=false;
    Label4.Visible:=false;
    Label1.Left:=Random(Form1.Width-Label1.Width-38);
    Label2.Left:=Random(Form1.Width-Label2.Width-38);
    Label3.Left:=Random(Form1.Width-Label3.Width-38);
    Label4.Left:=Random(Form1.Width-Label4.Width-38);
    Label1.Top:=Random(Form1.Height-Label1.Height-38);
    Label2.Top:=Random(Form1.Height-Label2.Height-38);
    Label3.Top:=Random(Form1.Height-Label3.Height-38);
    Label4.Top:=Random(Form1.Height-Label4.Height-38);
end;

end.

Form2窗体
unit Unit2;

interface

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

type
TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
    if Form2.Edit1.Text=Form1.Label1.Caption+Form1.Label2.Caption+Form1.Label3.Caption+Form1.Label4.Caption then
    begin
      application.MessageBox('恭喜你！！！','提示',0);
      form2.Hide;
      form1.Show;
      form1.Button1.Visible:=true;
      form1.Button2.Visible:=true;
      form1.Button3.Visible:=true;
      form1.Label1.Visible:=false;
      form1.Label2.Visible:=false;
      form1.Label3.Visible:=false;
      form1.Label4.Visible:=false;
      form1.Label5.Visible:=true;
      form1.Label6.Visible:=true;
      form1.Timer1.Enabled:=false;
      form1.Timer2.Enabled:=false;
      form1.Timer3.Enabled:=false;
      form1.Timer4.Enabled:=false;
      form1.Timer5.Enabled:=false;
      Edit1.Text:='';
    end
    else
    begin
      application.MessageBox('太遗憾啦！！！','提示',0);
      form2.Hide;
      form1.Show;
      form1.Button1.Visible:=true;
      form1.Button2.Visible:=true;
      form1.Button3.Visible:=true;
      form1.Label1.Visible:=false;
      form1.Label2.Visible:=false;
      form1.Label3.Visible:=false;
      form1.Label4.Visible:=false;
      form1.Label5.Visible:=true;
      form1.Label6.Visible:=true;
      form1.Timer1.Enabled:=false;
      form1.Timer2.Enabled:=false;
      form1.Timer3.Enabled:=false;
      form1.Timer4.Enabled:=false;
      form1.Timer5.Enabled:=false;
      Edit1.Text:='';
    end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    application.Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    Edit1.Text:='';
end;

end.

注：图片仅为Form2窗体

黑龍 发表于 2015-9-27 12:43:28

快 扶我去沙发
页: [1]
查看完整版本: 一闪而过