俄罗斯方块7.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

增加暂停的功能
11.把暂停和继续两个按钮的功能合二为一，即修改为下面的代码
procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled:=not Timer1.Enabled;
  if Timer1.Enabled then
    Button3.Caption:='暂停'
    else Button3.Caption:='继续';
end;