移动.txt

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

新建程序
1.新建一个文件夹(在"E:\我的程序"下新建一个"移动"文件夹)
2.新建程序(打开Delphi-->File-->New-->Application)
3.保存到新建的文件夹(Save All)
打开程序
双击.dpr文件
添加控件
1.从控件工具栏添加定时器(Timer)控件
2.双击定时器，添加事件，并添加代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Top:=Form1.Top-5;
end;
3.添加标签(Label)控件，将其标题(Caption)改为"向上"
把定时器的代码改为
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Caption='向上' then
    Form1.Top:=Form1.Top-5;
  if Label1.Caption='向左' then
    Form1.Left:=Form1.Left-5;
end;
4.从控件工具栏添加4个按钮(Button)
把它们的标题(Caption)属性分别改为"向上"、"向左"、"向下"、"向右"
双击按钮，添加事件，并添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='向上';
end;