| Class TCDControl (unit CDCtrl) |
TWinControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Next;
procedure Pause;
procedure Play;
procedure Prev;
procedure Stop;
procedure ClickButton(Button: TCDButton);
procedure BtnNextClick(Sender: TObject);
procedure BtnPauseClick(Sender: TObject);
procedure BtnPlayClick(Sender: TObject);
procedure BtnPrevClick(Sender: TObject);
procedure BtnStopClick(Sender: TObject);
procedure Close;
function GetHintNext: string;
function GetHintPause: string;
function GetHintPlay: string;
function GetHintPrev: string;
function GetHintStop: string;
function GetMode: TCDModes;
function GetPos: integer;
function GetSerialNum: integer;
function GetTrackLength(TrackNum: Integer): Integer;
function GetTracks: integer;
procedure Open;
procedure SetHintNext(Hint: string);
procedure SetHintPause(Hint: string);
procedure SetHintPlay(Hint: string);
procedure SetHintPrev(Hint: string);
procedure SetHintStop(Hint: string);
procedure SetPos(Pos: integer);
procedure WMSize(var Msg: TWMSize);| Properties |
property Align :
property Enabled :
property HintNext : string
property HintPause : string
property HintPlay : string
property HintPrev : string
property HintStop : string
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Mode : TCDModes
property Position : integer
property SerialNum : integer
property TrackLength : integer
property Tracks : integer| Events |
event OnClick : TCDClick
event OnEnter :
event OnExit : | Variables |
BtnNext : TSpeedButton;
BtnPause : TSpeedButton;
BtnPlay : TSpeedButton;
BtnPrev : TSpeedButton;
BtnStop : TSpeedButton;
DeviceID : integer;
FOnClick : TCDClick;
StartAt : integer;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Next;
procedure Pause;
procedure Play;
procedure Prev;
procedure Stop;
procedure ClickButton(Button: TCDButton);
procedure BtnNextClick(Sender: TObject);
procedure BtnPauseClick(Sender: TObject);
procedure BtnPlayClick(Sender: TObject);
procedure BtnPrevClick(Sender: TObject);
procedure BtnStopClick(Sender: TObject);
procedure Close;
function GetHintNext: string;
function GetHintPause: string;
function GetHintPlay: string;
function GetHintPrev: string;
function GetHintStop: string;
function GetMode: TCDModes;
function GetPos: integer;
function GetSerialNum: integer;
function GetTrackLength(TrackNum: Integer): Integer;
function GetTracks: integer;MCI Mode #s are 524+enum
procedure Open;
procedure SetHintNext(Hint: string);
procedure SetHintPause(Hint: string);
procedure SetHintPlay(Hint: string);
procedure SetHintPrev(Hint: string);
procedure SetHintStop(Hint: string);
procedure SetPos(Pos: integer);
procedure WMSize(var Msg: TWMSize);| Properties |
property Align :
property Enabled :
property HintNext : string
property HintPause : string
property HintPlay : string
property HintPrev : string
property HintStop : string
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Mode : TCDModes
property Position : integer
property SerialNum : integer
property TrackLength : integer
property Tracks : integer| Events |
event OnClick : TCDClick
event OnEnter :
event OnExit : | Variables |
BtnNext : TSpeedButton;
BtnPause : TSpeedButton;
BtnPlay : TSpeedButton;
BtnPrev : TSpeedButton;
BtnStop : TSpeedButton;
DeviceID : integer;
FOnClick : TCDClick;
StartAt : integer;