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


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



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

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




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

    Басты бет