移动.txt

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

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