unit1.dfm

delphi 与单片机串口编程 源代码 提供给各位朋友

object Form1: TForm1
  Left = 265
  Top = 148
  BorderStyle = bsDialog
  Caption = #26080#32447#25671#25511#22120
  ClientHeight = 269
  ClientWidth = 464
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 64
    Width = 63
    Height = 24
    Caption = #29366#24577':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 216
    Top = 16
    Width = 75
    Height = 24
    Caption = #20449#24687#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 8
    Width = 75
    Height = 24
    Caption = #31471#21475#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 38
    Top = 34
    Width = 26
    Height = 13
    Caption = 'com1'
  end
  object Label5: TLabel
    Left = 8
    Top = 34
    Width = 27
    Height = 13
    Caption = #24403#21069':'
  end
  object Edit1: TEdit
    Left = 80
    Top = 60
    Width = 97
    Height = 28
    TabStop = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyDown = Edit1KeyDown
  end
  object Panel1: TPanel
    Left = 76
    Top = 99
    Width = 45
    Height = 45
    Caption = #21069
    TabOrder = 1
    OnMouseDown = Panel1MouseDown
    OnMouseUp = Panel1MouseUp
  end
  object Panel2: TPanel
    Left = 24
    Top = 150
    Width = 45
    Height = 45
    Caption = #24038
    TabOrder = 2
    OnMouseDown = Panel2MouseDown
    OnMouseUp = Panel2MouseUp
  end
  object Panel3: TPanel
    Left = 128
    Top = 150
    Width = 45
    Height = 45
    Caption = #21491
    TabOrder = 3
    OnMouseDown = Panel3MouseDown
    OnMouseUp = Panel3MouseUp
  end
  object Panel4: TPanel
    Left = 76
    Top = 150
    Width = 45
    Height = 45
    Caption = #21518
    TabOrder = 4
    OnMouseDown = Panel4MouseDown
    OnMouseUp = Panel4MouseUp
  end
  object ListBox1: TListBox
    Left = 288
    Top = 16
    Width = 161
    Height = 97
    TabStop = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 216
    Top = 128
    Width = 233
    Height = 129
    Caption = #29305#25216
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object Panel7: TPanel
    Left = 336
    Top = 160
    Width = 97
    Height = 40
    Caption = '07'
    TabOrder = 7
    OnMouseDown = Panel7MouseDown
    OnMouseUp = Panel7MouseUp
  end
  object Panel8: TPanel
    Left = 232
    Top = 208
    Width = 97
    Height = 40
    Caption = '08'
    TabOrder = 8
    OnMouseDown = Panel8MouseDown
    OnMouseUp = Panel8MouseUp
  end
  object Panel9: TPanel
    Left = 336
    Top = 208
    Width = 97
    Height = 40
    Caption = '09'
    TabOrder = 9
    OnMouseDown = Panel9MouseDown
    OnMouseUp = Panel9MouseUp
  end
  object Panel10: TPanel
    Left = 232
    Top = 160
    Width = 97
    Height = 40
    Caption = 'S'
    TabOrder = 10
    OnMouseDown = Panel10MouseDown
    OnMouseUp = Panel10MouseUp
  end
  object Panel12: TPanel
    Left = 216
    Top = 56
    Width = 60
    Height = 20
    Caption = #28165#31354
    TabOrder = 11
    OnMouseDown = Panel12MouseDown
    OnMouseUp = Panel12MouseUp
  end
  object Panel13: TPanel
    Left = 80
    Top = 14
    Width = 40
    Height = 20
    Caption = 'com1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    OnMouseDown = Panel13MouseDown
    OnMouseUp = Panel13MouseUp
  end
  object Panel14: TPanel
    Left = 128
    Top = 14
    Width = 40
    Height = 20
    Caption = 'com2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
    OnMouseDown = Panel14MouseDown
    OnMouseUp = Panel14MouseUp
  end
  object GroupBox2: TGroupBox