俄罗斯方块3.txt

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

让图形能动，所以画图的坐标不能固定，就要定义坐标x,y
7.
var
  Form1: TForm1;
  x:Integer=20;
  y:Integer=20;
前两行是原来的，在后面定义了两个变量x,y作为图形的坐标
更改原来的画图代码
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clRed;
  Canvas.Rectangle(x,y,x+20,y+80);
end;
这样就为让图形运动做好了准备,现在只要改变x,y就可以让图形动了