unit1.~dfm

飞思在线《Delphi7技术手册》配书源代码

object frmDocument: TfrmDocument
  Left = 249
  Top = 129
  Width = 351
  Height = 360
  Caption = 'Word'#25991#26723#25805#20316#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object BtnBeginWord: TButton
    Left = 256
    Top = 16
    Width = 75
    Height = 25
    Caption = #21551#21160'Word'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BtnBeginWordClick
  end
  object BtnNewDocument: TButton
    Left = 256
    Top = 56
    Width = 75
    Height = 25
    Caption = #21019#24314#26032#25991#26723
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnNewDocumentClick
  end
  object BtnAdd: TButton
    Left = 256
    Top = 96
    Width = 75
    Height = 25
    Caption = #28155#21152#20869#23481
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtnAddClick
  end
  object BtnInsert: TButton
    Left = 256
    Top = 136
    Width = 75
    Height = 25
    Caption = #25554#20837#20869#23481
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BtnInsertClick
  end
  object MemoTxt: TMemo
    Left = 8
    Top = 16
    Width = 201
    Height = 305
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      #36755#20837#25991#23383#20869#23481)
    ParentFont = False
    TabOrder = 4
  end
  object BtnSave: TButton
    Left = 256
    Top = 176
    Width = 75
    Height = 25
    Caption = #20445#23384#25991#26723
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BtnSaveClick
  end
  object BtnEndWord: TButton
    Left = 256
    Top = 296
    Width = 75
    Height = 25
    Caption = #20851#38381'Word'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object BtnPrintView: TButton
    Left = 256
    Top = 216
    Width = 75
    Height = 25
    Caption = #25171#21360#39044#35272
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = BtnPrintViewClick
  end
  object BtnPrint: TButton
    Left = 256
    Top = 256
    Width = 75
    Height = 25
    Caption = #25171#21360#25991#26723
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = BtnPrintClick
  end
  object WordApp: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 216
    Top = 56
  end
  object WordDocu: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 216
    Top = 16
  end
end