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;

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.