俄罗斯方块2.txt

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

让画的图形不会被擦掉
6.去掉Button1的事件，换成窗体Form1的OnPaint(当窗体重画)事件
(选择窗体Form1,在左边工具栏翻到事件Events页，找到OnPaint事件，双击生成它)
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clRed;
  Canvas.Rectangle(20,20,40,100);
end;