unitsetsupprice_data.dfm
来自「自己做过的工程」· DFM 代码 · 共 200 行
DFM
200 行
object formsetsupprice_data: Tformsetsupprice_data
Left = 181
Top = 122
BorderStyle = bsDialog
Caption = #37202#33756#20215#26684#35774#23450
ClientHeight = 349
ClientWidth = 426
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 426
Height = 272
Align = alClient
BorderStyle = bsSingle
TabOrder = 0
object Label1: TLabel
Left = 80
Top = 32
Width = 56
Height = 14
Caption = #37202#33756#32534#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 80
Top = 80
Width = 56
Height = 14
Caption = #37202#33756#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 80
Top = 128
Width = 56
Height = 14
Caption = #25152#23646#31867#21035
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 104
Top = 176
Width = 28
Height = 14
Caption = #21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 104
Top = 224
Width = 28
Height = 14
Caption = #20215#26684
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ed_supno: TEdit
Left = 152
Top = 24
Width = 145
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object ed_supname: TEdit
Left = 152
Top = 72
Width = 145
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object ed_supunit: TEdit
Left = 152
Top = 168
Width = 145
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
end
object ed_supprice: TEdit
Left = 152
Top = 216
Width = 145
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
end
object cbox_supclass: TComboBox
Left = 152
Top = 120
Width = 145
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 2
end
end
object Panel2: TPanel
Left = 0
Top = 272
Width = 426
Height = 77
Align = alBottom
BorderStyle = bsSingle
TabOrder = 1
object but_ok: TButton
Left = 96
Top = 24
Width = 81
Height = 33
Caption = #30830#23450
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = but_okClick
end
object but_cancel: TButton
Left = 240
Top = 24
Width = 81
Height = 33
Caption = #21462#28040
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = but_cancelClick
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?