word.dfm

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

object Form1: TForm1
  Left = 192
  Top = 133
  Width = 414
  Height = 269
  Caption = #26412#22320#32452#20214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    406
    242)
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 406
    Height = 201
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    DesignSize = (
      406
      201)
    object StartWordBtn: TSpeedButton
      Left = 16
      Top = 16
      Width = 81
      Height = 33
      Caption = #25171#24320'WORD'
      Flat = True
      OnClick = StartWordBtnClick
    end
    object FormatBtn: TSpeedButton
      Left = 16
      Top = 112
      Width = 81
      Height = 33
      Caption = #25913#21464#26684#24335#65292#23383#20307
      Enabled = False
      Flat = True
      OnClick = FormatBtnClick
    end
    object PasteBtn: TSpeedButton
      Left = 16
      Top = 64
      Width = 81
      Height = 33
      Caption = #31896#36148#21040'WORD'
      Enabled = False
      Flat = True
      OnClick = PasteBtnClick
    end
    object SaveBtn: TSpeedButton
      Left = 16
      Top = 152
      Width = 81
      Height = 33
      Caption = #20445#23384
      Enabled = False
      Flat = True
      OnClick = SaveBtnClick
    end
    object RichEdit1: TRichEdit
      Left = 120
      Top = 8
      Width = 275
      Height = 183
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        '')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object CloseBtn: TButton
    Left = 328
    Top = 217
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = #36864#20986
    TabOrder = 1
    OnClick = CloseBtnClick
  end
  object WordApplication1: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Top = 216
  end
  object Doc: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 32
    Top = 216
  end
  object ParaFmt: TWordParagraphFormat
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 64
    Top = 216
  end
  object WordFont1: TWordFont
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 96
    Top = 216
  end
end