Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Then begin
Animate1.StartFrame:=l;
Animate1.StopFrame:=Animate1.FrameCount; Animate1.Active:=True; Button1.caption:='Стоп'; RadioButton2.Enabled:=False; End Else Begin Animate1.Active:=False; Button1.caption:='Пуск'; RadioButton2.Enabled:=True; End; End; End.
comonAVi қасиетінің мәндері анимацияны анықтайды
5.2. MediaPlayer компоненті MediaPlayer компонентінің белгісі System парағында орналасқан. Ол видеороликтерді, дыбысты және ды быспен байланысқан анимацияны шығаруға мүмкіндік береді. MediaPlayer компонентінің белгісі . MediaPlayer компоненті MediaPlayer компонентінің батырмалары
5.3. Дыбысты шығару Дыбыстық фрагменттер WAV кеңейтілуі бар файлдарда орналасқан. Мысалы, C:\Winnt\Media каталогында Windows стандартты дыбыстары бар файлдарды табуға болады. Келесі программа WAV-файлдарда орналасқан дыбыстық фрагменттерді шығару үшін ediaPiayer компонентін пайдалану мүмкіндігін көрсетеді. Microsoft Windows-тың дыбыстары программасының формасы MediaPlayer1 компонентінің қасиеттерінің мәндері
Листинг: 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\'; Var Form1: TForm1; Date: 2015-07-01; view: 530; Нарушение авторских прав |