Alisher navoiy nomidagi samarqand davlat universiteti axborotlashtirish texnologiyalari

 
 

---

 
44
 
 
MediaPlayer1 komponentasi xossalari. 
 Xossa 
Qiymat 
 
  Name 
MediaPlayer1 
 
  FileName 
C:\WINDOWS\clock.avi 
 
  DeviceType 
dtAVIVideo 
 
  AutoOpen 
True 
 
  Display 
Panel1 
 
  Visible 
False 
 
 
Formada  Panell  komponentasida  animasiya  aks  etadi,  uning  nomi 
MediaPlayer1 komponenta Display xossasining qiymati sifatida beriladi.  
Animasiya  sohasi  o’lchovlari  MediaPlayer  komponentasi  DisplayRect 
xossasi  qiymati  sifatida  beriladi.  Bu  qiymat  dastur  ishlash  jarayonida 
MediaPlayer1.DisplayReet:=Rect(0,0,60,60)  instruksiyasini  bajarish  natijasida 
o’rnatiladi. 
 
Tovushli animasiya aks ettirish dastur matni. 
unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils, 
Classes, Graphics, Controls, 
Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; 

---

 
45
type 
TForm1 = class(TForm) 
Label1: TLabel;  
Panel1: TPanel; 
Button1: TButton;  
MediaPlayer1: TMediaPlayer;  
procedure Button1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject);  
private 
{ Private declarations ) public 
{ Public declarations } end; 
var 
Form1: TForm1 ; 
implementation 
{$R *.DFM} 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
MediaPlayer1.Play; 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
MediaPlayer1.DisplayRect:=Rect(0,0,60,60); 
end; 
end.