鱼C论坛

 找回密码
 立即注册
查看: 1790|回复: 1

[作品展示] 一闪而过

[复制链接]
发表于 2015-9-26 21:12:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 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窗体
一闪而过3.png
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

发表于 2015-9-27 12:43:28 | 显示全部楼层
快 扶我去沙发
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 1 反对 0

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-6-10 03:14

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表