鼠标移动-自动.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 14 行

1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)到该文件夹
4.添加定时器(Timer)控件
5.双击它添加事件，并添加代码
6.添加一个标签(Label)控件，把它的标题(Caption)改为"向上"
7.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为
"向上"、"向下"、"向左"、"向右"
8.双击按钮，添加事件，并添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='向上';
end;