Class TCDControl (unit CDCtrl)

Inherits from

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;

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;



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;