712按钮类组件(4) 在B1按钮的 OnClick事件中添加如下代码,注意变量在 Implementation 之前应该先给予定义: var i: integer=0 sb2 down =true procedure TForm1. B1Click(sender :=2: TObject) end begin else if j=2 then if i=0 then begin begin sb3 Down =true sb1. Down =true i:=0 i:=1: end end end else if i=1 then beg ③程序运行过程中,可以通过连续单击nex按钮实现三个 Speed Button的按 下动作,按 Close按钮退出程序。 Inprise Dephi7.1.2 按钮类组件(4)  在B1按钮的OnClick事件中添加如下代码，注意i变量在implementation 之前应该先给予定义： var i:integer=0; procedure TForm1.B1Click(Sender: TObject); begin if i=0 then begin sb1.Down:=true; i:=1; end else if i=1 then begin  程序运行过程中，可以通过连续单击next按钮实现三个SpeedButton的按 下动作，按Close按钮退出程序。 sb2.down:=true; i:=2; end else if i=2 then begin sb3.Down:=true; i:=0; end end;