鼠标移动控件-自动.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

1.添加几何(Shape)控件
2.添加定时器(Timer)控件,并双击它添加代码，让Shape1向右移动
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape1.Left:=Shape1.Left+5;
end;
3.再添加几何(Shape)控件
改变其"形状"(Shape)属性为"圆形"
4.再添加定时器(Timer)控件,并双击它添加代码，让Shape2向上移动
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Shape2.Top:=Shape2.Top-10;
  if Shape2.Top=0 then Shape2.Top:=250;
end;
5.改变第二个定时器Timer2的Enabled属性使刚开始不移动
6.添加一个按钮，标题(Caption)改为"射击"，并添加事件和代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer2.Enabled:=True;
end;