鼠标移动控件-自动.txt

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

1.建一个文件夹"鼠标移动控件"，用于放程序。
2.新建一个程序。
3.保存(用Save All)到该文件夹
4.向窗体(Form1)添加定时器(Timer)控件(点上方的控件工具栏的第四页(System)
  的定时器(Timer)控件，再在窗体的空白处点一下)
5.双击它添加事件，并添加代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Caption='向上' then
    Shape1.Top:=Shape1.Top-5;
end;
6.添加一个标签(Label)控件，把它的标题(Caption)改为"向上"
7.添加一个几何(Shape)控件
8.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为
"向上"、"向下"、"向左"、"向右"
9.双击按钮，添加事件，并添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='向上';
end;