Delphi tilida

end; 
end; 
Procedure TForml.RadioButtonlClick(Sender: TObject); 
Begin 
Buttonl.Enabled:=True; 
Button3.Enabled:=False ; 
Button2.Enabled:=False; 
end; 
Procedure TForml.RadioButton2Click(Sender: TObject); 
Begin 
Button2.Enabled:=True; 
Button3.Enabled:=False; 
Buttonl.Enabled:=False; end; 
procedure TForml.ButtonlClick(Sender: TObject); 
begin 
IfAnimatel.Active = False 
Then begin 
Animate1.StartFrame:=1; 
Animate1.StopFrame:=Animate 1.FrameCount; 
Animatel.Active:=True; 
Buttonl.caption:='To‘xtash'; 
RadioButton2.Enabled:=False; 
end; 
else; 
begin 
Animate1.Active:=False; 
Buttonl.caption:='Boshlash'; 
RadioButton2.Enabled:=True; 
end; 
end; 
end. 

141 

MediaPlayer komponentasi belgisi System qatorida joylashgan 
bolib. videoroliklar, tovush va tovushli animatsiyani qurishga imkon 
beradi. Formaga MediaPlayer komponentasijoylashtirilganda tugma- 
lar guruhi paydo boladi. 
Bu tugmalar vazifalari jadvalda berilgan. MediaPlayer xossalari 
keyingi jadvalda keltirilgan. 
MediaPlayer komponentasi. 

|f Fomil 

if - ► i w !► *l • * 

MediaPlayer komponentasi tugmalari: 

Tugma Belgisi 
Eshittirish btPlay 
Pauza btPause 
Stop btStop 
Keyingi btNext 
Oldingi btPrev 
Qadam btStep 
Orqaga btBack 
Yozuv btRecord 
Ochish/Yopish btEject