comm.~dfm

所有delphi的入门例子

object Form1: TForm1
  Left = 310
  Top = 121
  Width = 696
  Height = 530
  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
  OnActivate = FormActivate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 504
    Top = 16
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 24
    Top = 16
    Width = 60
    Height = 13
    Caption = #29677#32423#21517#31216#65306
  end
  object Label3: TLabel
    Left = 96
    Top = 16
    Width = 32
    Height = 13
    Caption = 'Label3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 400
    Top = 432
    Width = 89
    Height = 33
    Caption = #25509#25910
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 512
    Top = 432
    Width = 89
    Height = 33
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 496
    Top = 40
    Width = 161
    Height = 33
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 48
    Width = 465
    Height = 329
    ActivePage = TabSheet2
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = #23398#29983
      object StringGrid1: TStringGrid
        Left = 8
        Top = 8
        Width = 441
        Height = 281
        ColCount = 3
        RowCount = 2
        TabOrder = 0
        OnClick = StringGrid1Click
        OnMouseDown = StringGrid1MouseDown
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36965#25511#22120
      ImageIndex = 1
      object StringGrid2: TStringGrid
        Left = 8
        Top = 8
        Width = 441
        Height = 281
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26381#21153#22120
      ImageIndex = 2
    end
  end
  object Button4: TButton
    Left = 288
    Top = 432
    Width = 75
    Height = 25
    Caption = #26174#31034
    TabOrder = 4
    OnClick = Button4Click
  end
  object Memo2: TMemo
    Left = 488
    Top = 96
    Width = 185
    Height = 129
    Lines.Strings = (
      'Memo2')
    TabOrder = 5
  end
  object Button3: TButton
    Left = 120
    Top = 392
    Width = 113
    Height = 25
    Caption = #25171#24320#26381#21153#31471#21475
    TabOrder = 6
    OnClick = Button3Click
  end
  object Comm4: TComm
    CommName = 'COM4'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm4ReceiveData
    Top = 448
  end
  object MainMenu1: TMainMenu
    Top = 384
    object N0: TMenuItem
      Caption = #25991#20214
      object N01: TMenuItem
        Caption = #21019#24314#29677#32423#21015#34920
        ImageIndex = 1
        OnClick = N01Click
      end
      object N02: TMenuItem
        Caption = #25171#24320#29677#32423#21015#34920'...'
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object N03: TMenuItem
        Caption = #20445#23384#29677#32423#21015#34920
      end
      object N04: TMenuItem
        Caption = #20445#23384#29677#32423#21015#34920#20026'...'
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N05: TMenuItem
        Caption = #23548#20837#29677#32423#21015#34920
        object N051: TMenuItem
          Caption = 'Microsoft Excel'
        end
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N06: TMenuItem
        Caption = #36864#20986
      end
    end
    object N1: TMenuItem
      Caption = #32534#36753
      object N5: TMenuItem
        Caption = #22686#21152#23398#29983
        OnClick = N5Click
      end
      object N7: TMenuItem
        Caption = #23398#29983#20449#24687
      end
      object N8: TMenuItem
        Caption = #21024#38500#23398#29983
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = #29677#32423#20449#24687
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = #31649#29702
      object N13: TMenuItem
        Caption = #30417#25511#20013#24515
        OnClick = N13Click
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
    end
  end
  object ADOCommand1: TADOCommand
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Tech.mdb;Persist' +
      ' Security Info=False'
    Parameters = <>
    Top = 416
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 32
    Top = 416
  end
  object PopupMenu1: TPopupMenu
    Left = 32
    Top = 384
    object xu1: TMenuItem
      Caption = #23398#29983#20449#24687
    end
    object N12: TMenuItem
      Caption = #21024#38500#23398#29983
      OnClick = N12Click
    end
  end
  object IdTCPServer1: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnExecute = IdTCPServer1Execute
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 32
    Top = 448
  end
end