Microsoft Windows-тың дыбыстары  программасының формасы

 

56 

MediaPlayer1 компонентінің қасиеттерінің мәндері  

Компонент 

Мәні 

DeviceType 

DtAutoSelect 

FileName 

C:\Winnt\Media\3вук Microsoft.wav 

AutoOpen 

True 

VisibleButtons . btNext 

False 

VisibleButtons .btPrev 

False 

VisibleButtons . btStep 

False 

VisibleButtons . btBack 

False 

VisibleButtons . btRecord 

False 

VisibleButtons .btEject 

False 

  Листинг: 

unit WinSound_; interface 

uses 

Windows, Messages, SysUtils,  

Classes, Graphics, Controls, Forms, 

Dialogs, StdCtrls, MPlayer; 

type 

TForm1 = class(TForm) 

MediaPlayerl: TMediaPlayer; // медиаплеер 

Label1: TLabel;  

ListBox1: TListBox;  

Label2: TLabel;  

procedure FormActivate(Sender: TObject); 

procedure ListBoxlClick(Sender: TObject); 

procedure MediaPlayerlClick(Sender: TObject; 

Button: TMPBtnType; 

var DoDefault: Boolean); private 

{ Private declarations } public 

{ Public declarations } end; 

const 

SOUNDPATCH='с:\winnt\media\';  

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

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