StrForm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 196
  3.   Top = 112
  4.   Width = 489
  5.   Height = 334
  6.   Caption = 'StrDemo'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object EditResemble1: TEdit
  18.     Left = 64
  19.     Top = 24
  20.     Width = 121
  21.     Height = 21
  22.     TabOrder = 0
  23.     Text = 'Cant'#249
  24.   end
  25.   object EditResemble2: TEdit
  26.     Left = 296
  27.     Top = 24
  28.     Width = 121
  29.     Height = 21
  30.     TabOrder = 1
  31.     Text = 'Cantu'
  32.   end
  33.   object ButtonResemble: TButton
  34.     Left = 200
  35.     Top = 24
  36.     Width = 75
  37.     Height = 25
  38.     Caption = 'Resembles?'
  39.     TabOrder = 2
  40.     OnClick = ButtonResembleClick
  41.   end
  42.   object ListBoxMatch: TListBox
  43.     Left = 296
  44.     Top = 88
  45.     Width = 121
  46.     Height = 113
  47.     ItemHeight = 13
  48.     Items.Strings = (
  49.       'one'
  50.       'two'
  51.       'three'
  52.       'four'
  53.       'five'
  54.       'six'
  55.       'seven'
  56.       'eight')
  57.     TabOrder = 3
  58.   end
  59.   object EditMatch: TEdit
  60.     Left = 64
  61.     Top = 128
  62.     Width = 121
  63.     Height = 21
  64.     TabOrder = 4
  65.     Text = 'four'
  66.   end
  67.   object ButtonMatches: TButton
  68.     Left = 200
  69.     Top = 96
  70.     Width = 75
  71.     Height = 25
  72.     Caption = 'Matches Text'
  73.     TabOrder = 5
  74.     OnClick = ButtonMatchesClick
  75.   end
  76.   object ButtonIndex: TButton
  77.     Left = 200
  78.     Top = 128
  79.     Width = 75
  80.     Height = 25
  81.     Caption = 'Index Text'
  82.     TabOrder = 6
  83.     OnClick = ButtonIndexClick
  84.   end
  85.   object EditSample: TEdit
  86.     Left = 64
  87.     Top = 232
  88.     Width = 121
  89.     Height = 21
  90.     TabOrder = 7
  91.     Text = 'sample text'
  92.   end
  93.   object ButtonTriplicate: TButton
  94.     Left = 200
  95.     Top = 216
  96.     Width = 75
  97.     Height = 25
  98.     Caption = 'Triplicate'
  99.     TabOrder = 8
  100.     OnClick = ButtonTriplicateClick
  101.   end
  102.   object ButtonReverse: TButton
  103.     Left = 200
  104.     Top = 248
  105.     Width = 75
  106.     Height = 25
  107.     Caption = 'Reverse'
  108.     TabOrder = 9
  109.     OnClick = ButtonReverseClick
  110.   end
  111.   object ButtonRandom: TButton
  112.     Left = 200
  113.     Top = 160
  114.     Width = 75
  115.     Height = 25
  116.     Caption = 'Random'
  117.     TabOrder = 10
  118.     OnClick = ButtonRandomClick
  119.   end
  120. end