unit1.~pas

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Edit1: TEdit;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Left>20 then  //控制Label1的运动
    label1.Left:=label1.Left-5
else
    begin
    timer1.Enabled:=false;
    timer2.Enabled:=true;
    end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if label2.Left>55 then   //控制Label2的运动
    label2.Left:=label2.Left-5
else
    begin
    timer2.Enabled:=false;
    timer3.Enabled:=true;
    end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if label3.Left>90 then     //控制Label3的运动
   label3.Left:=label3.Left-5
else
    begin
    timer3.Enabled:=false;
    timer4.Enabled:=true;
    end;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if label4.Left>125 then   //控制Label4的运动
   label4.Left:=label4.Left-5
else
    begin
    timer4.Enabled:=false;
    timer5.Enabled:=true;
    end;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
if label5.Left>160 then    //控制Label5的运动
    label5.Left:=label5.Left-5
else
    begin
    timer5.Enabled:=false;
    timer6.Enabled:=true;
    end;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
if label6.Left>195 then   //控制Label6的运动
   label6.Left:=label6.Left-5
else
    begin
    timer6.Enabled:=false;
    end;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
  label1.Color:=random(350000); //使Label背景产生随机颜色
  label2.Color:=random(350000);
  label3.Color:=random(350000);
  label4.Color:=random(350000);
  label5.Color:=random(350000);
  label6.Color:=random(350000);
  label1.Font.Color:=random(35000); //使Label上的文字产生随机颜色
  label2.Font.Color:=random(35000);
  label3.Font.Color:=random(35000);
  label4.Font.Color:=random(35000);
  label5.Font.Color:=random(35000);
  label6.Font.Color:=random(35000);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  label1.Caption:=Edit1.Text; //给各个Label赋值
  label2.Caption:=Edit2.Text;
  label3.Caption:=Edit3.Text;
  label4.Caption:=Edit4.Text;
  label5.Caption:=Edit5.Text;
  label6.Caption:=Edit6.Text;
  label1.Visible:=true; //控制各个Label的可见性
  label2.Visible:=true;
  label3.Visible:=true;
  label4.Visible:=true;
  label5.Visible:=true;
  label6.Visible:=true;
  label7.Visible:=false;
  edit1.Visible:=false; //控制各个Edit控件的可见性
  edit2.Visible:=false;
  edit3.Visible:=false;
  edit4.Visible:=false;
  edit5.Visible:=false;
  edit6.Visible:=false;
  bitbtn1.Visible:=false;
  timer1.Enabled:=true;//Timer1开始计时
  Form1.Caption:='文字飞出效果'; //改变窗体的标题
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Visible:=false; //控制各个Label的可见性
  label2.Visible:=false;
  label3.Visible:=false;
  label4.Visible:=false;
  label5.Visible:=false;
  label6.Visible:=false;
  label7.Visible:=true;
  edit1.Visible:=true; //控制各个Edit控件的可见性
  edit2.Visible:=true;
  edit3.Visible:=true;
  edit4.Visible:=true;
  edit5.Visible:=true;
  edit6.Visible:=true;
  bitbtn1.Visible:=true;
end;

end.