📄 objaccessu.dfm
字号:
object frmAccessObject: TfrmAccessObject
Left = 192
Top = 107
Width = 491
Height = 250
Caption = ' Accessing an Object'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 120
TextHeight = 16
object lblName: TLabel
Left = 345
Top = 64
Width = 40
Height = 16
Caption = 'Name:'
end
object lblAccNo: TLabel
Left = 345
Top = 94
Width = 47
Height = 16
Caption = 'Acc No:'
end
object lblIndex: TLabel
Left = 345
Top = 20
Width = 63
Height = 16
Caption = 'Item Index:'
end
object btnCreate: TButton
Left = 38
Top = 158
Width = 92
Height = 30
Caption = '&Create'
TabOrder = 0
OnClick = btnCreateClick
end
object btnDelete: TButton
Left = 354
Top = 158
Width = 93
Height = 30
Caption = '&Delete'
TabOrder = 1
OnClick = btnDeleteClick
end
object gpbCName: TGroupBox
Left = 20
Top = 10
Width = 129
Height = 60
Caption = ' Client Name '
TabOrder = 2
object edtCName: TEdit
Left = 10
Top = 20
Width = 109
Height = 24
TabOrder = 0
Text = 'Client'#39's Name'
end
end
object gpbAccNo: TGroupBox
Left = 20
Top = 79
Width = 129
Height = 60
Caption = ' Account Number '
TabOrder = 3
object edtAccNo: TEdit
Left = 10
Top = 20
Width = 109
Height = 24
TabOrder = 0
Text = 'Acc No'
end
end
object lstClients: TListBox
Left = 167
Top = 20
Width = 149
Height = 168
ItemHeight = 16
TabOrder = 4
OnClick = lstClientsClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -