editfm.~dfm

DELPHI 串口程序 小程序 我个人做的想程序给大家看看

object editform: Teditform
  Left = 218
  Top = 74
  Width = 524
  Height = 389
  BiDiMode = bdLeftToRight
  Caption = #35760#20107#26412
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = TMainMenu
  OldCreateOrder = False
  ParentBiDiMode = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Editor: TRichEdit
    Left = 0
    Top = 29
    Width = 516
    Height = 287
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    HideScrollBars = False
    Lines.Strings = (
      '')
    ParentFont = False
    PopupMenu = PopupMenu1
    ScrollBars = ssVertical
    TabOrder = 0
    OnChange = EditorChange
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 516
    Height = 29
    Caption = 'ToolBar'
    Flat = True
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = #21098#20999
      Caption = 'ToolButton1'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Hint = #22797#21046
      Caption = 'ToolButton2'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Hint = #31896#36148
      Caption = 'ToolButton3'
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Hint = #25764#28040
      Caption = 'ToolButton4'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 92
      Top = 0
      Hint = #37325#20570
      Caption = 'ToolButton5'
      ImageIndex = 10
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 115
      Top = 0
      Hint = #23383#20307
      Caption = 'ToolButton6'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton6Click
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 316
    Width = 516
    Height = 19
    Panels = <
      item
        Text = #25991#26412#32534#25558#22120'1.0'
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object TMainMenu: TMainMenu
    Left = 16
    Top = 48
    object MIFile: TMenuItem
      Caption = #26032#24314'(&F)'
      object MINew: TMenuItem
        Caption = #26032#24314'(&N)'
        OnClick = MINewClick
      end
      object MIOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = MIOpenClick
      end
      object MISave: TMenuItem
        Caption = #20445#23384'(&S)'
        OnClick = MISaveClick
      end
      object MISaveAs: TMenuItem
        Caption = #21478#23384#20026'(&A)'
        OnClick = MISaveAsClick
      end
      object MIPrint: TMenuItem
        Caption = #25171#21360'(&P)'
        OnClick = MIPrintClick
      end
      object MIPrinterSetup: TMenuItem
        Caption = #25171#21360#35774#32622
        OnClick = MIPrinterSetupClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MIExit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = MIExitClick
      end
    end
    object MIEdit: TMenuItem
      Caption = #32534#36753'(&E)'
      object U1: TMenuItem
        Caption = #25764#28040'(&U)'
        OnClick = U1Click
      end
      object R1: TMenuItem
        Caption = #37325#20570'(&R)'
        OnClick = R1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Caption = #21098#20999'(&T)'
        OnClick = T1Click
      end
      object C1: TMenuItem
        Caption = #22797#21046'(&C)'
        OnClick = C1Click
      end
      object P1: TMenuItem
        Caption = #31896#36148'(&P)'
        OnClick = P1Click
      end
      object D1: TMenuItem
        Caption = #21024#38500'(&D)'
        OnClick = D1Click
      end
      object A1: TMenuItem
        Caption = #20840#36873'(&A)'
        OnClick = A1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object F1: TMenuItem
        Caption = #26597#25214'(&F)'
        OnClick = DgFindFind
      end
      object L1: TMenuItem
        Caption = #26367#25442'(&L)'
        OnClick = L1Click
      end
    end
    object MICharacter: TMenuItem
      Caption = #26684#24335'(&C)'
      object mileft: TMenuItem
        Caption = #23621#24038'(&L)'
        Checked = True
        OnClick = mileftClick
      end
      object micenter: TMenuItem
        Caption = #23621#20013'(&C)'
        OnClick = micenterClick
      end
      object miright: TMenuItem
        Caption = #23621#21491'(&R)'
        OnClick = mirightClick