Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта


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



Pdf көрінісі
бет97/122
Дата27.03.2022
өлшемі1,24 Mb.
#28970
түріПрограмма
1   ...   93   94   95   96   97   98   99   100   ...   122
Байланысты:
Дәріс (2)

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

then Form1.Button3.Enabled := False;  

end;  

end; 

 

 

 

procedure TForml.RadioButtonlClick(Sender: TObject);  

begin 

Buttonl.Enabled:=True; 

  

Form1.Button3.Enabled:=False ; 



Form1.Button2.Enabled:=False; 

end; 

 

procedure 

TForm1.RadioButton2Click(Sender:TObject); 



begin 

Button2.Enabled:=True;  

Buttons.Enabled:=False 

Buttonl.Enabled:=False; end; 



 

procedure TForm1.ButtonlClick(Sender: TObject);  

begin 

if Animate1.Active = False  

then begin 

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   ...   93   94   95   96   97   98   99   100   ...   122




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет