📄 main.~dfm
字号:
object MainFrm: TMainFrm
Left = 201
Top = 116
Width = 596
Height = 345
Caption = 'Tuo Lin OPC Server Develop Kit '#39'DEMO'
Color = clNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 56
Top = 24
Width = 97
Height = 16
AutoSize = False
Caption = #20351#29992#27493#39588#65306
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 88
Top = 56
Width = 153
Height = 16
AutoSize = False
Caption = #27880#20876'OPC Server'
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 88
Top = 80
Width = 169
Height = 16
AutoSize = False
Caption = 'Add Item'#65306#22686#21152#28857
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 88
Top = 104
Width = 177
Height = 16
AutoSize = False
Caption = #21551#21160#25968#25454#21047#26032#26102#38047
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 48
Top = 144
Width = 60
Height = 16
AutoSize = False
Caption = #36864#20986#27493#39588#65306
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label6: TLabel
Left = 88
Top = 200
Width = 161
Height = 16
AutoSize = False
Caption = 'Delete Item :'#21024#38500#28857
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 88
Top = 224
Width = 129
Height = 16
AutoSize = False
Caption = #20851#38381#24212#29992#31243#24207
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 88
Top = 176
Width = 153
Height = 16
AutoSize = False
Caption = #20851#38381#25968#25454#21047#26032#26102#38047
Color = clWindowText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object ListView1: TListView
Left = 320
Top = 8
Width = 264
Height = 208
Columns = <
item
Caption = 'TagName'
Width = 150
end
item
Caption = 'Handle'
Width = 100
end
item
Caption = 'Value'
end
item
Caption = 'Type'
end
item
Caption = 'Quality'
end
item
Caption = 'TimeStamp'
Width = 100
end
item
Caption = 'Description'
Width = 300
end>
TabOrder = 0
ViewStyle = vsReport
Visible = False
end
object Sbar: TStatusBar
Left = 0
Top = 273
Width = 588
Height = 26
Panels = <>
SimplePanel = False
end
object MainMenu1: TMainMenu
Left = 8
Top = 32
object OPC1: TMenuItem
Caption = 'OPC'
object Register: TMenuItem
Caption = 'Register'
OnClick = RegisterClick
end
object Unregister: TMenuItem
Caption = 'Unregister'
OnClick = UnregisterClick
end
object N1: TMenuItem
Caption = '-'
end
object ServerStatus: TMenuItem
Caption = 'Server Status'
OnClick = ServerStatusClick
end
object N2: TMenuItem
Caption = '-'
end
object AddItem: TMenuItem
Caption = 'Add Item'
OnClick = AddItemClick
end
object DeleteItem: TMenuItem
Caption = 'Delete Item'
OnClick = DeleteItemClick
end
object N3: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
object DataTimer1: TMenuItem
Caption = 'DataTimer'
object Start: TMenuItem
Caption = 'Start'
OnClick = StartClick
end
object Stop: TMenuItem
Caption = 'Stop'
OnClick = StopClick
end
end
object Help1: TMenuItem
Caption = 'Help'
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
end
end
object Timer1: TTimer
Enabled = False
Interval = 3000
OnTimer = Timer1Timer
Left = 8
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -