updownfrm.dfm
来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· DFM 代码 · 共 98 行
DFM
98 行
object UpDownForm: TUpDownForm
Left = 309
Top = 190
Width = 253
Height = 158
Caption = 'UpDown'#25511#20214#30340#20351#29992
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object RedUpDown: TUpDown
Left = 209
Top = 8
Width = 15
Height = 21
Associate = RedEdit
Min = 0
Max = 255
Position = 255
TabOrder = 0
Wrap = False
OnChanging = RedUpDownChanging
end
object RedEdit: TLabeledEdit
Left = 88
Top = 8
Width = 121
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #32418#33394#21462#20540#65306
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 1
Text = '255'
OnChange = RedEditChange
end
object GreenUpDown: TUpDown
Left = 209
Top = 48
Width = 15
Height = 21
Associate = GreenEdit1
Min = 0
Max = 255
Position = 255
TabOrder = 2
Wrap = False
OnChanging = RedUpDownChanging
end
object GreenEdit1: TLabeledEdit
Left = 88
Top = 48
Width = 121
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #32511#33394#21462#20540#65306
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 3
Text = '255'
OnChange = RedEditChange
end
object BlueUpDown: TUpDown
Left = 209
Top = 88
Width = 15
Height = 21
Associate = BlueEdit
Min = 0
Max = 255
Position = 255
TabOrder = 4
Wrap = False
OnChanging = RedUpDownChanging
end
object BlueEdit: TLabeledEdit
Left = 88
Top = 88
Width = 121
Height = 21
EditLabel.Width = 60
EditLabel.Height = 13
EditLabel.Caption = #34013#33394#21462#20540#65306
LabelPosition = lpLeft
LabelSpacing = 10
TabOrder = 5
Text = '255'
OnChange = RedEditChange
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?