unit1.dfm

DELPHI经典程序

object Form1: TForm1
  Left = 295
  Top = 47
  Width = 327
  Height = 392
  Caption = 'Form1'
  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 Edit1: TEdit
    Left = 12
    Top = 2
    Width = 290
    Height = 21
    AutoSelect = False
    TabOrder = 0
    Text = 'Delphi & Object PASCAL '#23436#32654#30340#28436#32462
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 60
    Width = 310
    Height = 79
    Caption = #26377#20851' Edit1 SELECT'
    TabOrder = 2
    object Button1: TButton
      Left = 8
      Top = 18
      Width = 91
      Height = 22
      Caption = 'AutoSelect'
      TabOrder = 0
      TabStop = False
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 106
      Top = 18
      Width = 93
      Height = 22
      Caption = 'HideSelection'
      TabOrder = 1
      TabStop = False
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 204
      Top = 18
      Width = 93
      Height = 22
      Caption = 'ClearSelection'
      TabOrder = 2
      TabStop = False
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 48
      Width = 125
      Height = 22
      Caption = 'Sel Length+Start+Text'
      TabOrder = 3
      TabStop = False
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 150
      Top = 48
      Width = 131
      Height = 22
      Caption = 'SelectAll'
      TabOrder = 4
      TabStop = False
      OnClick = Button5Click
    end
  end
  object Edit2: TEdit
    Left = 12
    Top = 32
    Width = 290
    Height = 21
    TabOrder = 1
    Text = 'Edit2'
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 144
    Width = 310
    Height = 49
    Caption = #26377#20851' Edit1 UNDO'
    TabOrder = 3
    object Button6: TButton
      Left = 8
      Top = 18
      Width = 103
      Height = 22
      Caption = 'Undo+CanUndo'
      TabOrder = 0
      TabStop = False
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 138
      Top = 18
      Width = 105
      Height = 22
      Caption = 'ClearUndo'
      TabOrder = 1
      TabStop = False
      OnClick = Button7Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 4
    Top = 198
    Width = 310
    Height = 75
    Caption = #26377#20851' Edit1 Clipboard//'#38656#20808'select text '#36148#33267'Edit2'
    TabOrder = 4
    object Button8: TButton
      Left = 8
      Top = 18
      Width = 103
      Height = 22
      Caption = 'CopyToClipboard'
      TabOrder = 0
      TabStop = False
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 116
      Top = 18
      Width = 113
      Height = 22
      Caption = 'CutToClipboard'
      TabOrder = 1
      TabStop = False
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 50
      Top = 46
      Width = 123
      Height = 22
      Caption = 'PasteFromClipboard'
      TabOrder = 2
      TabStop = False
      OnClick = Button10Click
    end
  end
  object Button11: TButton
    Left = 8
    Top = 282
    Width = 71
    Height = 22
    Caption = 'CharCase'
    TabOrder = 5
    TabStop = False
    OnClick = Button11Click
  end
  object GroupBox4: TGroupBox
    Left = 4
    Top = 312
    Width = 310
    Height = 53
    Caption = 'Edit2 '#26377#20851#23494#30721#37096#20998
    TabOrder = 6
    object Button15: TButton
      Left = 10
      Top = 18
      Width = 185
      Height = 22
      Caption = 'PasswordChar_ MaxLength'
      TabOrder = 0
      TabStop = False
      OnClick = Button15Click
    end
    object Button16: TButton
      Left = 208
      Top = 18
      Width = 81
      Height = 22
      Caption = #26816#26597
      TabOrder = 1
      TabStop = False
      OnClick = Button16Click
    end
  end
  object Button12: TButton
    Left = 80
    Top = 282
    Width = 85
    Height = 22
    Caption = 'ReadOnly'
    TabOrder = 7
    TabStop = False
    OnClick = Button12Click
  end
  object Button13: TButton
    Left = 166
    Top = 282
    Width = 77
    Height = 22
    Caption = 'Modified'
    TabOrder = 8
    TabStop = False
    OnClick = Button13Click
  end
  object Button14: TButton
    Left = 244
    Top = 282
    Width = 70
    Height = 22
    Caption = 'Clear'
    TabOrder = 9
    TabStop = False
    OnClick = Button14Click
  end
end