俄罗斯方块13.txt

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

16.改变方块的形状
要在多处改动
(1)在窗体Form1的重画事件中，把最后一行的
  Canvas.Rectangle(20+x*20,20+y*20,40+x*20,100+y*20);
换成
  Canvas.Rectangle(20+x*20,20+y*20,80+x*20,40+y*20);
  Canvas.Rectangle(40+x*20,40+y*20,60+x*20,80+y*20);
(2)PutDown函数换成
procedure TForm1.PutDown;
begin
  //当一个方块到达下面要把它放下来，就是说要将
  //方块所在的那些格子填满
  if y=17 then
  begin
    Box[x,17]:=1;
    Box[x+1,17]:=1;
    Box[x+2,17]:=1;
    Box[x+1,18]:=1;
    Box[x+1,19]:=1;
    //然后一个新的方块又从上面下来
    y:=0;
  end;
end;