📄 alarm.dfm
字号:
object AlarmClock: TAlarmClock
Left = 241
Top = 127
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '快乐小闹钟 V1.06'
ClientHeight = 132
ClientWidth = 397
Color = clCaptionText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000666666660000000000000000000000000000000000000000000000000
0000000000000000000000000000060000000000000000000000000000600000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000EEEEEEEEEEEEEEEEEE0000000000000
0EEEEEEEEEEEEEEEEEE00000000000000EEEEEE444444EEEEEE0000000000000
0EEEEE4EEEEEE4EEEEE00000000000000EEEEEEEEEEEEEEEEEE0001100000000
0EEEEEEEE44EEEEEEEE00111100000000EEEEEEEE44EEEEEEEE0011110000000
0EEEEEEEE44EEEEEEEE00011000000000EEEEEEEEEEEEEEEEEE0000000000000
0EE44EE44EE44EE44EE00000000000000EEE4444EEEE4444EEE0001100000000
0EEEE44EEEEEE44EEEE00111100000000EEEEEEEEEEEEEEEEEE0011110000000
0EEEEEEEEEEEEEEEEEE000110000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000600
0000000000000000000000000060000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000600000000000
600000000000000000000600000006660000000000000000000000666000FFFF
FFFFF000001FF000001FFE0000FFFF1FE3FF8000000180000001800000018000
0001800000018000000180000001800000018000000180000001800000018000
0001800000018000000180000001800000018000000180000001800000018000
00018000000180000001FF1FE3FFFE3FF1FFFC7FF87FF0FFFC3F81FFFE07}
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMinimized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 8
Top = 16
Width = 89
Height = 25
AutoSize = False
Caption = '闹钟时刻:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 8
Top = 56
Width = 89
Height = 25
AutoSize = False
Caption = '现在时刻:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 120
Top = 56
Width = 280
Height = 25
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 120
Top = 16
Width = 280
Height = 25
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ComboBox1: TComboBox
Left = 107
Top = 98
Width = 75
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
Text = '闹钟时'
Items.Strings = (
'不设置'
'0时'
'1时'
'2时'
'3时'
'4时'
'5时'
'6时'
'7时'
'8时'
'9时'
'10时'
'11时'
'12时'
'13时'
'14时'
'15时'
'16时'
'17时'
'18时'
'19时'
'20时'
'21时'
'22时'
'23时')
end
object ComboBox2: TComboBox
Left = 215
Top = 98
Width = 75
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
Text = '闹钟分'
Items.Strings = (
'不设置'
'0分钟'
'5分'
'10分'
'15分'
'20分'
'25分'
'30分'
'35分'
'40分'
'45分'
'50分'
'55分')
end
object Timer1: TTimer
Interval = 3000
OnTimer = Timer1Timer
Left = 192
Top = 56
end
object Timer2: TTimer
OnTimer = Timer2Timer
Left = 120
Top = 64
end
object MainMenu1: TMainMenu
Left = 416
Top = 112
object N1: TMenuItem
Caption = '闹铃'
object N3: TMenuItem
Caption = '关闭闹钟'
OnClick = N3Click
end
end
object N4: TMenuItem
Caption = '关于闹钟'
object N2: TMenuItem
Caption = '帮助文件'
OnClick = N2Click
end
object About1: TMenuItem
Caption = '关于本软件'
OnClick = About1Click
end
end
end
object Timer3: TTimer
OnTimer = Timer3Timer
Left = 40
Top = 96
end
object OpenDialog1: TOpenDialog
Left = 400
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -