mainform.~dfm

利用 ntport控制并口

object Form_Main: TForm_Main
  Left = 371
  Top = 185
  BorderStyle = bsDialog
  Caption = #24320#20851#25511#21046
  ClientHeight = 257
  ClientWidth = 371
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Memo: TMemo
    Left = 0
    Top = 33
    Width = 371
    Height = 224
    Align = alClient
    Color = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 371
    Height = 33
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object SpdStn_1: TSpeedButton
      Left = 6
      Top = 5
      Width = 23
      Height = 22
      Caption = '1'
      OnClick = SpdStn_1Click
    end
    object SpdStn_2: TSpeedButton
      Left = 30
      Top = 5
      Width = 23
      Height = 22
      Caption = '2'
      OnClick = SpdStn_2Click
    end
    object SpdStn_3: TSpeedButton
      Left = 54
      Top = 5
      Width = 23
      Height = 22
      Caption = '3'
      OnClick = SpdStn_3Click
    end
    object SpdStn_4: TSpeedButton
      Left = 80
      Top = 5
      Width = 23
      Height = 22
      Caption = '4'
      OnClick = SpdStn_4Click
    end
    object PaintBox: TPaintBox
      Left = 160
      Top = 2
      Width = 209
      Height = 29
      Align = alRight
    end
  end
end