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



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

 

procedure Button3Click(Sender: TObject); 

 

procedure RadioButton1Click(Sender: TObject);  

 

procedure RadioButton2Click(Sender: TObject); 

 

private 

{ Private declarations }  



public 

{ Public declarations )  



 

end; 

 

var Form1: TForm1; // форма 

CFrame: integer;  



 

implementation {$R *.DFM} 

 

procedure TForm1.Button2Click(Sender: TObject); 

begin 

if CFrame = 1 then  

Button2.Enabled := True; 



if CFrame < Animate1.FrameCount then begin 

CFrame := CFrame + 1; 

Animate1.StartFrame := CFrame; 

Animate1.StopFrame := CFrame; 

Animate1.Active := True; 

if CFrame = Animatel.FrameCount  

then Button2.Enabled:=False; 

end;  

end; 

 

procedure TForm1.Button3Click(Sender: TObject); 

begin 

if  CFrame = Animate1.FrameCount 

then Button2.Enabled := True; 

if CFrame > 1 then begin 

CFrame := CFrame — 1; 

Animate1.StartFrame := CFrame; 

Animate1.StopFrame := CFrame; 

Animate1.Active := True; 



Достарыңызбен бөлісу:
1   ...   92   93   94   95   96   97   98   99   ...   122




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

    Басты бет