📄 unit1.dfm
字号:
object Form1: TForm1
Left = 208
Top = 138
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = '发送消息'
ClientHeight = 333
ClientWidth = 413
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 401
Height = 281
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '发送消息'
object Label1: TLabel
Left = 8
Top = 12
Width = 48
Height = 15
Caption = '发送到'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
end
object AddrBox: TComboBox
Left = 72
Top = 10
Width = 305
Height = 24
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 5
Top = 48
Width = 379
Height = 165
Caption = '消息内容:'
TabOrder = 1
object MesText: TMemo
Left = 8
Top = 14
Width = 361
Height = 139
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object BitBtn2: TBitBtn
Left = 179
Top = 223
Width = 124
Height = 25
Hint = 'Send to all members'
Caption = '发送所有用户'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object btnSend: TBitBtn
Left = 308
Top = 223
Width = 75
Height = 25
Caption = '发送'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnSendClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object TabSheet2: TTabSheet
Caption = '已经发送的消息'
ImageIndex = 1
object LV1: TListView
Left = 0
Top = 0
Width = 393
Height = 253
Align = alClient
Columns = <>
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
end
object TabSheet3: TTabSheet
Caption = '收到的消息'
ImageIndex = 2
object lv: TListView
Left = 0
Top = 0
Width = 393
Height = 253
Align = alClient
Columns = <>
MultiSelect = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
end
end
object Button2: TButton
Left = 233
Top = 296
Width = 94
Height = 25
Caption = '清除收到的消息'
TabOrder = 1
OnClick = Button2Click
end
object BitBtn1: TBitBtn
Left = 331
Top = 296
Width = 75
Height = 25
Caption = '退出'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn1Click
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600C6C6C600FF00
FF00C6C6C600FF00FF0000000000FF00FF00C6C6C600FF00FF00C6C6C600FF00
FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00FF00FF00C6C6
C600FF00FF000000000000000000C6C6C6000000000000000000FF00FF00C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600C6C6C600FF00
FF0000000000FFFF000000000000FF00FF00C6C6C600FF00FF0000000000FF00
FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00000000000000
000000000000FFFF000000000000000000000000000000000000000000000000
00000000000000000000FF00FF00C6C6C600FF00FF00C6C6C600C6C6C6000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000FF00
FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00FF00FF000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600C6C6C6000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000FF00
FF00C6C6C600FF00FF0000000000FF00FF00C6C6C600FF00FF00FF00FF000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000C6C6
C600FF00FF000000000000000000C6C6C600FF00FF00C6C6C600C6C6C6000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000FF00
FF000000000000000000000000000000000000000000FF00FF00FF00FF000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000C6C6
C600FF00FF000000000000000000C6C6C600FF00FF00C6C6C600C6C6C6000000
0000FFFF0000FFFF00000000000084848400848484008484840000000000FF00
FF00C6C6C600FF00FF0000000000FF00FF00C6C6C600FF00FF00FF00FF000000
000000000000000000008484840084848400848484008484840000000000C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600C6C6C6000000
000000000000848484008484840084848400848484008484840000000000FF00
FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00FF00FF000000
000000000000000000000000000000000000000000000000000000000000C6C6
C600FF00FF00C6C6C600FF00FF00C6C6C600FF00FF00C6C6C600}
end
object Button1: TButton
Left = 132
Top = 296
Width = 93
Height = 25
Caption = '清除发送的消息'
TabOrder = 3
OnClick = Button1Click
end
object BitBtn3: TBitBtn
Left = 48
Top = 296
Width = 75
Height = 25
Caption = '刷新'
TabOrder = 4
OnClick = BitBtn3Click
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -