本光盘是《Delphi 7应用教程》一书的配套光盘
源代码在线查看： mainfrm.dfm
object Form1: TForm1
Left = 301
Top = 213
Width = 420
Height = 236
Caption = 'CD'#25773#25918#22120
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object SpeedButton6: TSpeedButton
Left = 8
Top = 8
Width = 23
Height = 22
Caption = '1'
end
object SpeedButton7: TSpeedButton
Left = 24
Top = 0
Width = 23
Height = 22
Caption = '2'
end
object SpeedButton8: TSpeedButton
Left = 48
Top = 0
Width = 23
Height = 22
Caption = '3'
end
object SpeedButton9: TSpeedButton
Left = 72
Top = 0
Width = 23
Height = 22
Caption = '4'
end
object SpeedButton10: TSpeedButton
Left = 96
Top = 0
Width = 23
Height = 22
Caption = '5'
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 412
Height = 73
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 64
Top = 8
Width = 32
Height = 13
Caption = 'Label1'
end
object Label2: TLabel
Left = 64
Top = 32
Width = 32
Height = 13
Caption = 'Label2'
end
object Label3: TLabel
Left = 64
Top = 56
Width = 32
Height = 13
Caption = 'Label3'
end
object Label4: TLabel
Left = 264
Top = 8
Width = 32
Height = 13
Caption = 'Label4'
end
object Label5: TLabel
Left = 264
Top = 32
Width = 32
Height = 13
Caption = 'Label5'
end
object Label6: TLabel
Left = 264
Top = 56
Width = 32
Height = 13
Caption = 'Label6'
end
object Label9: TLabel
Left = 8
Top = 8
Width = 27
Height = 13
Caption = 'track:'
end
object Label10: TLabel
Left = 8
Top = 32
Width = 19
Height = 13
Caption = 'time'
end
object Label11: TLabel
Left = 8
Top = 56
Width = 28
Height = 13
Caption = 'status'
end
object Label12: TLabel
Left = 192
Top = 8
Width = 61
Height = 13
Caption = 'total tracks '
end
object Label13: TLabel
Left = 192
Top = 32
Width = 58
Height = 13
Caption = 'total length '
end
object Label14: TLabel
Left = 192
Top = 56
Width = 59
Height = 13
Caption = 'track length'
end
end
object Panel2: TPanel
Left = 150
Top = 84
Width = 239
Height = 111
BevelOuter = bvLowered
TabOrder = 1
object MediaPlayer1: TMediaPlayer
Left = 28
Top = 16
Width = 197
Height = 81
VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
AutoOpen = True
DeviceType = dtCDAudio
TabOrder = 0
OnClick = MediaPlayer1Click
OnPostClick = MediaPlayer1PostClick
end
end
object Panel3: TPanel
Left = 7
Top = 82
Width = 137
Height = 113
BevelOuter = bvLowered
TabOrder = 2
object SpeedButton1: TSpeedButton
Tag = 1
Left = 8
Top = 8
Width = 23
Height = 22
Caption = '1'
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Tag = 2
Left = 32
Top = 8
Width = 23
Height = 22
Caption = '2'
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Tag = 3
Left = 56
Top = 8
Width = 23
Height = 22
Caption = '3'
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Tag = 4
Left = 80
Top = 8
Width = 23
Height = 22
Caption = '4'
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Tag = 5
Left = 104
Top = 8
Width = 25
Height = 22
Caption = '5'
OnClick = SpeedButton1Click
end
object SpeedButton11: TSpeedButton
Tag = 6
Left = 8
Top = 32
Width = 23
Height = 22
Caption = '6'
OnClick = SpeedButton1Click
end
object SpeedButton12: TSpeedButton
Tag = 7
Left = 32
Top = 32
Width = 23
Height = 22
Caption = '7'
OnClick = SpeedButton1Click
end
object SpeedButton13: TSpeedButton
Tag = 8
Left = 56
Top = 32
Width = 23
Height = 22
Caption = '8'
OnClick = SpeedButton1Click
end
object SpeedButton14: TSpeedButton
Tag = 9
Left = 80
Top = 32
Width = 25
Height = 22
Caption = '9'
OnClick = SpeedButton1Click
end
object SpeedButton16: TSpeedButton
Tag = 11
Left = 8
Top = 56
Width = 23
Height = 22
Caption = '11'
OnClick = SpeedButton1Click
end
object SpeedButton17: TSpeedButton
Tag = 12
Left = 32
Top = 56
Width = 23
Height = 22
Caption = '12'
OnClick = SpeedButton1Click
end
object SpeedButton18: TSpeedButton
Tag = 13
Left = 56
Top = 56
Width = 23
Height = 22
Caption = '13'
OnClick = SpeedButton1Click
end
object SpeedButton19: TSpeedButton
Tag = 14
Left = 80
Top = 56
Width = 23
Height = 22
Caption = '14'
OnClick = SpeedButton1Click
end
object SpeedButton20: TSpeedButton
Tag = 15
Left = 106
Top = 56
Width = 23
Height = 22
Caption = '15'
OnClick = SpeedButton1Click
end
object SpeedButton21: TSpeedButton
Tag = 16
Left = 8
Top = 80
Width = 23
Height = 22
Caption = '16'
OnClick = SpeedButton1Click
end
object SpeedButton22: TSpeedButton
Tag = 17
Left = 32
Top = 80
Width = 23
Height = 22
Caption = '17'
OnClick = SpeedButton1Click
end
object SpeedButton23: TSpeedButton
Tag = 18
Left = 56
Top = 80
Width = 23
Height = 22
Caption = '18'
OnClick = SpeedButton1Click
end
object SpeedButton24: TSpeedButton
Tag = 19
Left = 80
Top = 80
Width = 23
Height = 22
Caption = '19'
OnClick = SpeedButton1Click
end
object SpeedButton25: TSpeedButton
Tag = 20
Left = 106
Top = 80
Width = 23
Height = 22
Caption = '20'
OnClick = SpeedButton1Click
end
object SpeedButton15: TSpeedButton
Tag = 10
Left = 104
Top = 32
Width = 25
Height = 22
Caption = '10'
OnClick = SpeedButton1Click
end
end
object Timer1: TTimer
Interval = 10000
OnTimer = Timer1Timer
Left = 336
Top = 16
end
end
