unit4.pas

1.四个角分别被恐怖份子埋好了炸弹！你必须在限制的时间内和服从反恐专家的意见来解除炸弹！如果时间到了或你擅自进行行动将引起炸弹的爆炸

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
  //  time:integer ;
    { Public declarations }
  end;

var
  Form4: TForm4;
where:array [1..4] of string=('解除右方','解除左方','解除上方','解除下方');


implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Timer1Timer(Sender: TObject);
begin
time:=time-1;
label1.Caption:='TIME RUN 加油!>'+inttostr(time)+'<!';
if time=0 then
begin
form1.timer1.Enabled:=true;
//form1.timer2.Enabled:=true;
start:=1;
timer1.Enabled:=false;
form4.Close;
end;
end;

procedure TForm4.FormActivate(Sender: TObject);
begin
memo1.Text:='';
if part=1 then
begin
a:=1;
b:=2;
c:=3;
d:=4;
time:=15;
end;
if part=2 then
begin
a:=2;
b:=1;
c:=3;
d:=4;
time:=10;
end;

if part=3 then
begin
timer1.Enabled:=false;
label1.Caption:='游戏结束';
memo1.Text:='有好的建议QQ:214660372';
//application.MessageBox('你过关了','信息',mb_ok);
end
ELSE
BEGIN
label1.Caption:='倒计时10S开始!>'+inttostr(time)+'<!';
memo1.Lines.Add('第'+inttostr(part)+'关 '+'专家意见');
memo1.Lines.Add('------------------------------');
//memo1.Lines.Add('');

memo1.Lines.Add('hand向上=>'+where[a]);

memo1.Lines.Add('hand向下=>'+where[b]);

memo1.Lines.Add('hand向左=>'+where[c]);

memo1.Lines.Add('------------------------------');
memo1.Lines.Add('注:全部解除才能到下一关!');

   END;
end;

procedure TForm4.Label2Click(Sender: TObject);
begin
form1.timer1.Enabled:=true;
//form1.timer2.Enabled:=true;
start:=1;
timer1.Enabled:=false;
form4.close;
if part=3 then
form1.Close;
end;

end.