俄罗斯方块1.txt

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

1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.向窗体添加按钮Button1,并添加事件和代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color:=clRed;
  Canvas.Rectangle(20,20,40,100);
end;
5.改两个文字(Caption)属性
Form1.Caption:='俄罗斯方块';
Button1.Caption:='开始';