unit1.lfm

Lazarus编写的WINCE上读写串口的程序例子

object Form1: TForm1
  Left = 265
  Height = 376
  Top = 218
  Width = 768
  HorzScrollBar.Page = 767
  VertScrollBar.Page = 375
  ActiveControl = btn_OpenPort
  Caption = 'Form1'
  ClientHeight = 376
  ClientWidth = 768
  object btn_OpenPort: TButton
    Left = 8
    Height = 49
    Top = 8
    Width = 112
    Caption = 'Open'
    OnClick = btn_OpenPortClick
    TabOrder = 0
  end
  object btn_ClosePort: TButton
    Left = 152
    Height = 49
    Top = 8
    Width = 112
    Caption = 'Close'
    OnClick = btn_ClosePortClick
    TabOrder = 1
  end
  object GroupBox1: TGroupBox
    Left = 8
    Height = 216
    Top = 80
    Width = 224
    Caption = 'Send'
    ClientHeight = 198
    ClientWidth = 220
    TabOrder = 2
    object edt_Send: TMemo
      Left = 6
      Height = 170
      Top = 8
      Width = 208
      Lines.Strings = (
        'Memo1'
      )
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 248
    Height = 240
    Top = 80
    Width = 224
    Caption = 'Receive'
    ClientHeight = 222
    ClientWidth = 220
    TabOrder = 3
    object edt_Receive: TMemo
      Left = 6
      Height = 170
      Top = 8
      Width = 208
      Lines.Strings = (
        'Memo1'
      )
      TabOrder = 0
    end
  end
  object btn_Send: TButton
    Left = 64
    Height = 52
    Top = 304
    Width = 128
    Caption = 'btn_Send'
    OnClick = btn_SendClick
    TabOrder = 4
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    left = 530
    top = 98
  end
end