main.dfm

呵,这几天有点闲,把以前作过的模块拿来作成了这个小东西.主要是以前听说有软件实现这个功能,再加上当时自己需要,所以写下的.功能很小.代码也很短.

object frmcopytext: Tfrmcopytext
  Left = 322
  Top = 155
  BorderStyle = bsDialog
  Caption = #32593#25991#24555#25235
  ClientHeight = 247
  ClientWidth = 273
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbltitle: TLabel
    Left = 8
    Top = 8
    Width = 49
    Height = 17
    AutoSize = False
    Caption = #25991#20214#21517':'
  end
  object lbltext: TLabel
    Left = 8
    Top = 48
    Width = 153
    Height = 17
    AutoSize = False
    Caption = #21098#36148#26495#20869#23481':'
  end
  object edttitle: TEdit
    Left = 64
    Top = 8
    Width = 201
    Height = 21
    TabOrder = 0
    Text = #30772#22825#24778#24037#20316#23460
  end
  object chbstart: TCheckBox
    Left = 24
    Top = 32
    Width = 89
    Height = 17
    Caption = #30417#35270#21098#36148#26495
    Checked = True
    State = cbChecked
    TabOrder = 1
    OnClick = chbstartClick
  end
  object chbgetname: TCheckBox
    Left = 136
    Top = 32
    Width = 105
    Height = 17
    Caption = #20801#35768#33258#21160#21462#21517
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = chbgetnameClick
  end
  object mmomain: TMemo
    Left = 8
    Top = 64
    Width = 257
    Height = 177
    Lines.Strings = (
      #21551#21160#26412#36719#20214#21518',,,,'#25152#26377#32463#36807#21098#36148#26495#30340#25991#23383#37117#20250#34987
      #20445#23384#19979#26469'!'
      ''
      #30772#22825#24778#24037#20316#23460)
    TabOrder = 3
  end
end