unit1.~pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    Shape1: TShape;
    SpinEdit1: TSpinEdit;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.interval:=trackbar1.position; //设置Timer控件的触发时间间隔
  if i=1 then   //小球向左运动
    begin
      if shape1.left>0 then
        begin
          shape1.left:=shape1.left-10;  //使小球的位置发生变化
          shape1.width:=(shape1.width+1)mod 70;  //使小球所在矩形宽度发生变化
          shape1.height:=(shape1.height+1)mod 70; //使小球所在矩形高度发生变化
        end
      else
        i:=2;  //小球向右运动
    end;
  if i=2 then
    begin
      if shape1.left<(panel1.width-shape1.width-5) then
        begin
          shape1.left:=shape1.left+10 ;  //使小球的位置发生变化
          shape1.width:=(shape1.width+1)mod 70; //使小球所在矩形宽度发生变化
          shape1.height:=(shape1.height+1)mod 70; //使小球所在矩形高度发生变化
        end
      else
        i:=1;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.interval:=trackbar1.position;  //设置Timer控件的触发时间间隔
  timer1.enabled:=true;  //小球开始运动
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  timer1.enabled:=false;  //小球停止运动
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  trackbar1.position:=spinedit1.Value;  //改变运动速度
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  spinedit1.value:=trackbar1.Position;  //将Trackbar值的变化通知SpinEdit控件
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;  //退出
end;

initialization
  i:=1;
end.