unit1.dfm

自己做的一个串口系统,也是我的毕业设计,界面功能都显粗糙简单,希望有经验的朋友能给予指教

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 656
  Height = 461
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 445
    Height = 388
    Align = alClient
    TabOrder = 0
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 443
      Height = 345
      Align = alClient
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 1
      Top = 346
      Width = 443
      Height = 41
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 1
      object Label6: TLabel
        Left = 16
        Top = 16
        Width = 60
        Height = 13
        Caption = #21457#36865#23383#31526#65306
      end
      object Edit4: TEdit
        Left = 96
        Top = 8
        Width = 345
        Height = 21
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 445
    Top = 0
    Width = 203
    Height = 388
    Align = alRight
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 72
      Height = 13
      Caption = #20018'    '#21475'    '#21517#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 86
      Width = 72
      Height = 13
      Caption = #27874'    '#29305'    '#29575#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 132
      Width = 75
      Height = 13
      Caption = #25968'     '#25454'    '#20301#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 178
      Width = 72
      Height = 13
      Caption = #20572'    '#27490'    '#20301#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 224
      Width = 72
      Height = 13
      Caption = #22855#20598#26657#39564#20301#65306
    end
    object Edit1: TEdit
      Left = 88
      Top = 32
      Width = 100
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 88
      Top = 78
      Width = 100
      Height = 21
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 88
      Top = 124
      Width = 100
      Height = 21
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 170
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object ComboBox2: TComboBox
      Left = 88
      Top = 216
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        'NOPARITY'
        'EVENPARITY'
        'MARKPARITY'
        'ODDPARITY')
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 388
    Width = 648
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Left = 184
    Top = 16
    object N1: TMenuItem
      Caption = #20018#21475
      object N3: TMenuItem
        Caption = #25171#24320
        OnClick = N3Click
      end
      object N5: TMenuItem
        Caption = #20851#38381
        OnClick = N5Click
      end
    end
    object N2: TMenuItem
      Caption = #36890#35759
      object N4: TMenuItem
        Caption = #21457#36865
        OnClick = N4Click
      end
    end
  end
  object SeComm1: TSeComm
    CommName = 'COM1'
    BaudRate = 9600
    ByteSize = 8
    StopBits = ONESTOPBIT
    Parity = NOPARITY
    Left = 216
    Top = 16
  end
end