俄罗斯方块7.txt

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

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