if CFrame = 1 // текущий кадр — первый  then

Buttonl.Enabled:=True; 

Form1.Button3.Enabled:=False ; 

TForm1.RadioButton2Click(Sender:TObject); 

Button2.Enabled:=True;  

Buttons.Enabled:=False 

Buttonl.Enabled:=False; end; 

Animate1.StartFrame:=l;  

 

54 

Animate1.StopFrame:=Animate1.FrameCount;  

Animate1.Active:=True; 

Button1.caption:='Стоп'; 

RadioButton2.Enabled:=False; 

end 

else  

begin 

Animate1.Active:=False;  

Button1.caption:='Пуск'; 

RadioButton2.Enabled:=True; 

end;  

end; 

жүктеу/скачать 1,24 Mb.

Достарыңызбен бөлісу: