俄罗斯方块11.txt

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

14.修改定时器Timer1的事件的代码，当方块到下面时把它放下来，并继续一个新的
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  y:=y+1;
  //当一个方块到达下面要把它放下来，就是说要将
  //方块所在的那些格子填满
  if y=16 then
  begin
    Box[x,16]:=1;
    Box[x,17]:=1;
    Box[x,18]:=1;
    Box[x,19]:=1;
    //然后一个新的方块又从上面下来
    y:=0;
  end;
  Repaint;
end;