教育系统应用

开发平台：

Delphi

Unit22.dfm：源码内容

							object autoanswerform: Tautoanswerform
  Left = 216
  Top = 185
  Width = 696
  Height = 480
  BorderIcons = [biMinimize, biMaximize]
  Caption = #26426#36873#35797#21367#31572#26696#39044#35272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 434
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 376
    Top = 16
    object N3: TMenuItem
      Caption = #25991#20214'(&F)'
      object N26: TMenuItem
        Caption = #20851#38381'(&E)'
        OnClick = N26Click
      end
    end
    object N1: TMenuItem
      Caption = #32534#36753
      object N4: TMenuItem
        Caption = #25764#28040
        OnClick = N4Click
      end
      object N7: TMenuItem
        Caption = #21098#20999
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #22797#21046
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #31896#36148
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #20840#36873
        OnClick = N10Click
      end
    end
    object N5: TMenuItem
      Caption = #26684#24335'(&S)'
      object N19: TMenuItem
        Caption = #25991#23383#26684#24335'...(&W)'
        OnClick = N19Click
      end
    end
    object N6: TMenuItem
      Caption = #24110#21161'(&H)'
      object N21: TMenuItem
        Caption = #20851#20110#26412#32534#36753#22120'(&H)'
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 312
    Top = 16
  end
end

						