📄 umasterdetail.dfm
字号:
inherited fmMasterDetail: TfmMasterDetail
Width = 605
Height = 567
OnCreate = IWAppFormCreate
DesignLeft = 8
DesignTop = 8
inherited IWRectangle: TIWRectangle
Width = 582
end
inherited lbPageName: TIWLabel
Left = 495
Width = 97
Caption = 'Master/Detail'
end
object IWRegion1: TIWRegion [7]
Left = 16
Top = 127
Width = 577
Height = 65
Cursor = crAuto
TabOrder = 3
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
65)
object IWRectangle1: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 63
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle1'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object btOpen: TIWButton
Left = 8
Top = 33
Width = 97
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Open'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btOpen'
ScriptEvents = <>
TabOrder = 8
OnClick = btOpenClick
end
object cbLocalMasterDetail: TIWCheckBox
Left = 7
Top = 10
Width = 153
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'LocalMasterDetail'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 6
Checked = False
FriendlyName = 'cbLocalMasterDetail'
end
object btClose: TIWButton
Left = 113
Top = 33
Width = 95
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Caption = 'Close'
DoSubmitValidation = True
Color = clBtnFace
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
FriendlyName = 'btClose'
ScriptEvents = <>
TabOrder = 9
OnClick = btCloseClick
end
object cbCachedCalcFields: TIWCheckBox
Left = 167
Top = 10
Width = 151
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Caption = 'CachedCalcFields'
Editable = True
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
ScriptEvents = <>
DoSubmitValidation = True
Style = stNormal
TabOrder = 7
Checked = False
FriendlyName = 'cbCachedCalcFields'
end
object lbResult: TIWLabel
Left = 348
Top = 10
Width = 63
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'lbResult'
Caption = 'lbResult'
RawText = False
end
end
object IWRegion2: TIWRegion [8]
Left = 16
Top = 199
Width = 577
Height = 178
Cursor = crAuto
TabOrder = 1
Anchors = [akLeft, akTop, akRight]
BorderOptions.NumericWidth = 1
BorderOptions.BorderWidth = cbwNumeric
BorderOptions.Style = cbsSolid
BorderOptions.Color = clNone
Color = clWebBLACK
ParentShowHint = False
ShowHint = True
ZIndex = 1000
DesignSize = (
577
178)
object IWRectangle2: TIWRectangle
Left = 1
Top = 1
Width = 575
Height = 176
Cursor = crAuto
Anchors = [akLeft, akTop, akRight, akBottom]
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = -1
RenderSize = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
BorderOptions.Color = clNone
BorderOptions.Width = 0
FriendlyName = 'IWRectangle2'
Color = 14811135
Alignment = taLeftJustify
VAlign = vaMiddle
end
object IWDBNavigator1: TIWDBNavigator
Left = 8
Top = 104
Width = 135
Height = 30
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Confirmations.Delete = 'Are you sure you want to delete this record?'
Confirmations.Post = 'Are you sure you want to update this record?'
Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
DataSource = dsMaster
FriendlyName = 'IWDBNavigator1'
ImageHeight = 21
ImageWidth = 21
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Orientation = orHorizontal
OnFirst = IWDBNavigator1Refresh
OnPrior = IWDBNavigator1Refresh
OnNext = IWDBNavigator1Refresh
OnLast = IWDBNavigator1Refresh
OnRefresh = IWDBNavigator1Refresh
end
object IWLabel1: TIWLabel
Left = 8
Top = 6
Width = 67
Height = 18
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 12
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel1'
Caption = 'Master'
RawText = False
end
object IWLabel2: TIWLabel
Left = 8
Top = 33
Width = 102
Height = 16
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = False
Alignment = taLeftJustify
BGColor = clNone
Font.Color = clNone
Font.FontName = 'Verdana'
Font.Size = 10
Font.Style = [fsBold]
NoWrap = False
FriendlyName = 'IWLabel2'
Caption = 'MasterFields'
RawText = False
end
object edMasterFields: TIWEdit
Left = 8
Top = 52
Width = 121
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
RenderSize = True
Alignment = taLeftJustify
BGColor = clNone
FocusColor = clNone
DoSubmitValidation = True
Editable = True
NonEditableAsLabel = True
Font.Color = clNone
Font.Size = 10
Font.Style = []
FriendlyName = 'edMasterFields'
MaxLength = 0
ReadOnly = False
Required = False
ScriptEvents = <>
TabOrder = 10
PasswordPrompt = False
Text = 'edMasterFields'
end
object IWDBGrid1: TIWDBGrid
Left = 144
Top = 80
Width = 422
Height = 89
Cursor = crAuto
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -