SuperYoyoNC
新警察
UID 310
Digest Posts
0
Credits 9
Posts 8
点点分 9
Reading Access 10
Registered 2004-2-2 Location 中国上海
Status Offline
|
|
|
今天编完了个音量控制类，不知往何处传：-〉
{ 下面是类的声明部分...}
// --[Yoyoworks]----------------------------------------------------------------
// 工程名称：prjPowerFlashPlayer
// 软件名称：iPowerFlashPlayer
// 单元作者：许子健
// 开始日期：2004年03月14日，14:31:16
// 单元功能：用于音量调整的类。
// -----------------------------------------------------------[SHANGHAi|CHiNA]--
Unit untTVolume;
Interface
Uses MMSystem, SysUtils;
Type
TVolume = Class(TObject)
Private
FVolume: LongInt; //存储音量。
FIsMute: Boolean; //存储静音值。
Procedure SetLeftVolume(Volume: Integer); //设置左声道的音量。
Function GetLeftVolume: Integer; //获得左声道的音量。
Procedure SetRightVolume(Volume: Integer); //设置右声道的音量。
Function GetRightVolume: Integer; //获得右声道的音量。
Procedure SetIsMute(IsMute: Boolean); //设置是否静音。
Public
Constructor Create;
Destructor Destroy; Override;
Published
Property LeftVolume: Integer Read GetLeftVolume Write SetLeftVolume;
Property RightVolume: Integer Read GetRightVolume Write SetRightVolume;
Property Mute: Boolean Read FIsMute Write SetIsMute;
End;
|
|
|
