?? unit1.~pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Panel2: TPanel;
Timer1: TTimer;
Label1: TLabel;
Timer2: TTimer;
Timer3: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s:integer = 1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Caption<>'1'then
label1.Caption:=inttostr(strtoint(label1.Caption) - 1)
else
begin
shape3.Brush.Color:=clsilver;
shape2.Brush.Color:=clyellow;
timer2.Enabled:=true;
timer1.Enabled:=false;
label1.Caption:='5';
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if label1.Caption<>'1'then
label1.Caption:=inttostr(strtoint(label1.Caption) - 1)
else
begin
shape2.Brush.Color:=clsilver;
shape1.Brush.Color:=clred;
timer3.Enabled:=true;
timer2.Enabled:=false;
label1.Caption:='60';
end;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if label1.Caption<>'1'then
label1.Caption:=inttostr(strtoint(label1.Caption) - 1)
else
begin
shape1.Brush.Color:=clsilver;
shape3.Brush.Color:=clgreen;
timer3.Enabled:=true;
timer2.Enabled:=false;
label1.Caption:='60';
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -