~unit1.~dfm

来自「一个动态域名转发的客户端,asp+access+软件希望多多交流」· ~DFM 代码 · 共 110 行

object Form1: TForm1
  Left = 192
  Top = 212
  BorderStyle = bsSingle
  Caption = 'Server'
  ClientHeight = 331
  ClientWidth = 474
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    474
    331)
  PixelsPerInch = 96
  TextHeight = 12
  object lvUsers: TListView
    Left = 8
    Top = 8
    Width = 457
    Height = 150
    Hint = #29992#25143#21015#34920
    Anchors = [akLeft, akTop, akRight, akBottom]
    Checkboxes = True
    Columns = <
      item
        Caption = #29992#25143
        Width = 150
      end
      item
        Caption = 'IP&'#31471#21475
        Width = 150
      end
      item
        AutoSize = True
        Caption = #24037#20316#36827#24230
      end>
    ReadOnly = True
    ParentShowHint = False
    PopupMenu = pmRefresh
    ShowHint = True
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = lvUsersChange
  end
  object Memo1: TMemo
    Left = 8
    Top = 168
    Width = 457
    Height = 89
    Anchors = [akLeft, akRight, akBottom]
    ParentShowHint = False
    PopupMenu = pmClearMemo
    ReadOnly = True
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 1
  end
  object btnSendFileToClient: TButton
    Left = 8
    Top = 296
    Width = 457
    Height = 25
    Anchors = [akLeft, akRight, akBottom]
    Caption = #32473#36873#20013#30340#29992#25143#21457#36865#25991#20214
    TabOrder = 2
    OnClick = btnSendFileToClientClick
  end
  object edtMsg: TEdit
    Left = 8
    Top = 264
    Width = 457
    Height = 20
    Hint = #36755#20837#25991#26412#65292#25353#22238#36710#21457#36865#32473#36873#20013#30340#29992#25143
    Anchors = [akLeft, akRight, akBottom]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnKeyDown = edtMsgKeyDown
  end
  object XPManifest1: TXPManifest
    Left = 408
  end
  object dlgOpenSendingFile: TOpenDialog
    Filter = 'All file(*.)|*.*'
    Title = 'Open a file to send'
    Left = 376
  end
  object pmRefresh: TPopupMenu
    Left = 344
    object mmiRefresh: TMenuItem
      Caption = 'Refresh'
      OnClick = mmiRefreshClick
    end
  end
  object pmClearMemo: TPopupMenu
    Left = 312
    object miClearLog: TMenuItem
      Caption = 'Clear Log'
      OnClick = miClearLogClick
    end
  end
end