msg.~dfm

一个QQ的界面源码

object FrmMsg: TFrmMsg
  Left = 364
  Top = 142
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FrmMsg'
  ClientHeight = 496
  ClientWidth = 392
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000FF880000000000000000000000000000FF880000000000000000000000
    000077FFFF88000000000055DD000000000077FFFF88000000000055DD000000
    0000FFFFFF88770000005588880000000000FFFFFF8877000000558888000000
    0077FFFFFF88777700558888000000000077FFFFFF8877770055888800000000
    00FFFFFF88887700558888000000000000FFFFFF888877005588880000000000
    77FFFFFF88770055888800000000000077FFFFFF887700558888000000000000
    FFFFFFFF8800FF888800880000000000FFFFFFFF8800FF888800880000000077
    FFFFFFFF8800FFFF0088888800000077FFFFFFFF8800FFFF00888888000000FF
    FFFFFF88FF00000088888877000000FFFFFFFF88FF0000008888887700000000
    FFFF8888888888888888880000000000FFFF8888888888888888880000000000
    0088888888888877778877000000000000888888888888777788770000000000
    0000888888880000777700000000000000008888888800007777000000000000
    0000008888000088007700000000000000000088880000880077000000000000
    0000000000000000880000000000000000000000000000008800000000000000
    000000000000000000000000000000000000000000000000000000000000FFC3
    FFFFFFC3FFFFFF00FFC3FF00FFC3FC003F00FC003F00FC000C00FC000C00F000
    0003F0000003F000000FF000000FC000003FC000003FC000000FC000000F0000
    0003000000030000000300000003C000000FC000000FF000000FF000000FFC00
    003FFC00003FFF00C03FFF00C03FFFC3F0FFFFC3F0FFFFF003FFFFF003FF}
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 7
    Top = 55
    Width = 114
    Height = 12
    Caption = #35759#24687':(&M) Ctrl+Enter'
    FocusControl = RedMsg
  end
  object RedMsg: TRxRichEdit
    Left = -8
    Top = 72
    Width = 402
    Height = 161
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 512
    ParentFont = False
    TabOrder = 1
    OnChange = RedMsgChange
    OnKeyPress = RedMsgKeyPress
  end
  object GroupBox1: TGroupBox
    Left = 1
    Top = 0
    Width = 390
    Height = 49
    Caption = #22909#21451#20449#24687
    TabOrder = 0
    object LabSendTo: TLabel
      Left = 8
      Top = 22
      Width = 75
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #22958#31216':'
    end
    object PnlUserName: TPanel
      Left = 88
      Top = 15
      Width = 164
      Height = 24
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Caption = 'PnlUserName'
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 351
      Top = 9
      Width = 35
      Height = 35
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 1
      object ImgFace: TImage
        Left = 1
        Top = 1
        Width = 33
        Height = 33
        Align = alClient
      end
    end
  end
  object PnlTemp: TPanel
    Left = 47
    Top = 92
    Width = 289
    Height = 121
    Caption = #36825#20010#38754#26495#25918#32622#19968#20123#20020#26102#20449#24687#65292#22312#31243#24207#36816#34892#26102#26159#30475#19981#35265#22320
    TabOrder = 2
    Visible = False
    object LabQQNumber: TLabel
      Left = 10
      Top = 7
      Width = 372
      Height = 36
      Caption = 'LabQQNumber'#13#10#13#10#36825#26159#19968#20010#36133#31508#65292#20854#23454#65292#21482#35201#29992'FrmMsg.Tab'#23646#24615#26469#35760#24405'QQNumber'#23601#21487#20197#20102
      Visible = False
    end
  end
  object BtnCancle: TBitBtn
    Left = 213
    Top = 235
    Width = 79
    Height = 25
    Cancel = True
    Caption = #21462#28040#21457#36865'(&C)'
    TabOrder = 3
    OnClick = BtnCancleClick
  end
  object BtnChatLog: TBitBtn
    Left = 92
    Top = 235
    Width = 92
    Height = 25
    Caption = #32842#22825#35760#24405'(&L)'
    TabOrder = 4
    OnClick = BtnChatLogClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888000000000
      00888800788FFF77708880F078FFFF70008800008FFFFF77708807778FFFFF70
      00880777888FFF77708807778888FF7770880007888888700088077788888877
      7088077788888877708800078888887000880777888888777088077788888877
      708800078888887000880777FFFFFF7770880000000000000088}
  end
  object BtnRevert: TBitBtn
    Left = 3
    Top = 235
    Width = 80
    Height = 25
    Caption = #22238#22797'(&R)'
    TabOrder = 5
    OnClick = BtnRevertClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888000000000
      0888880788888888013880F78FFFFFF713330777FFFFFF713B380FFFFFFFF713
      B3880FFFFFFF713B38880FF888F713B308880FF888713B3808880F888733B3F8
      0888088887FB388808880888870F888808880F888878888808880F8888888888
      08880F888888888F08880FFFFFFFFFFF08880000000000000888}
  end
  object BtnSend: TBitBtn
    Left = 296
    Top = 235
    Width = 92
    Height = 25
    Caption = #21457#36865#35759#24687'(&S)'
    TabOrder = 6
    OnClick = BtnSendClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000FBFDFEE2EEF3
      E1EBEFE2EBF0E2EBF0E4EEF2F9F7F6FFF9F6FFF9F6FDF8F6F7F6F6F5F5F5F9F9
      F9FFFFFFFFFFFFFFFFFFDCE9F03282B0499AC83F99C64199C5468DB6698FA575
      94A17093A18099A2B0A9A6B4A9A3B1ACA9E9E9E9FFFFFFFFFFFFCDE0EB237FBB
      80C9F463C1F256BFF24BA4DC2A76AB1C6DA01C70A428729D4C788C51798B647C
      899E9D9CE3E2E1FFFFFFDFE7EA4A83A482BEF0A1D4FF8BD3FE6FD0FC63B5E961
      99CE6698CE5793C7317EB11572A63677978D8886BFBEBDFFFFFFFFFFFDA5B9BC
      5697C4708CAB49617A3A647C376F8B599DC83B5C783E5C7A6D9BCF4489BE146B
      97688491A09C9BF3F3F3FFFFFD9EB5BC689FC4969EAF55687E4C647F57789658
      ACD63778953C6F8D6392C35C94C71B74AA3A7897908A87EEECECFFFFFE9FB0B5
      598EB3CDDFFB7283974B617A86B5E2466F8A2A52652A4F623A68846BB5E83E8A
      BE3B789695918FF0EEEEFFFFFFECEBE47F99A787B1D4949CAB767F8F7EA2C867
      89AC6387A94079983F88AA5EBAE9399BD13D759297908DF0EEEDFFFFFFFFFFFF
      8CA7B36EA2C679818F464B5539434D50647980ADDA3E637C2741514175913DAA
      E03B7A9B8A8B8BF0EEEDFFFFFFFFFFFD88A4B26894B39199A8747D8D96A0B089
      97AB8DB2DA6183A557708D6393B868CAFD2F97CB426F86ECEAEAFFFFFFFFFFFF
      7E97A578909D828283464F5DA4B0C4838F9F9EAEC45A63723B44515876968AD1
      FF349CD34C758AF3EEECFFFFFFFFFFFF7E93A17F97A5C1BEBB9DACC1B5C8E485
      8FA0A9BAC9AABAC79AAFC295B9DAA1D0FD4793C99EB0B3FFFDFBFFFFFFFFFFFF
      7E92A37A95A4F8F4EFD1CECFB5B4B9626870617075A6BDC89CBABFA8BEC9C2D8
      F95495C5A2B7BCFFFFFEFFFFFFFFFFFF89A0AC285E7D5F84985A8194587D9146
      7A9A1C445C4B545F4660674E87A26299BF2A739FA3B5BAFFFFFEFEFFFFFEFEFE
      E1DEDBAFB9BDA5B1B7A6B2B7A7B4BAB7C3C9A2ACB21817164B4D4FB1C2C6AFBC
      C0B1B9BCE8E3DFFFFFFFFFFFFFFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFDCDCCCCE6E3E2FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object RedChatLog: TRxRichEdit
    Left = 0
    Top = 264
    Width = 392
    Height = 232
    PopupMenu = PMenu
    ReadOnly = True
    TabOrder = 7
    OnMouseDown = RedChatLogMouseDown
  end
  object Timer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerTimer
    Left = 8
    Top = 168
  end
  object SaveDlg: TSaveDialog
    Filter = #32842#22825#35760#24405'(*.txt)|*.txt|All Files(*.*)|*.*'
    Left = 112
    Top = 344
  end
  object PMenu: TPopupMenu
    Left = 184
    Top = 320
    object N1: TMenuItem
      Caption = #20840#36873
      ShortCut = 16449
      OnClick = N1Click
    end
    object Copy2: TMenuItem
      Caption = #22797#21046
      ShortCut = 16451
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #20445#23384#35760#24405
      ShortCut = 16467
      OnClick = N3Click
    end
  end
end