main.dfm

delphi 下实现自动完成的一个小例子

object AutoCompleteForm: TAutoCompleteForm
  Left = 338
  Top = 206
  BorderStyle = bsDialog
  Caption = 'Auto Completion Demo'
  ClientHeight = 258
  ClientWidth = 369
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CompletionLabel: TLabel
    Left = 8
    Top = 12
    Width = 24
    Height = 13
    Caption = 'Text:'
  end
  object CompletionEdit: TEdit
    Left = 40
    Top = 8
    Width = 321
    Height = 21
    TabOrder = 0
  end
  object SourceGroupBox: TGroupBox
    Left = 8
    Top = 40
    Width = 353
    Height = 209
    Caption = 'Source:'
    TabOrder = 1
    object SourceMemo: TMemo
      Left = 8
      Top = 16
      Width = 337
      Height = 185
      Lines.Strings = (
        'and'
        'array'
        'as'
        'asm'
        'begin'
        'case'
        'class'
        'const'
        'constructor'
        'destructor'
        'dispinterface'
        'div'
        'do'
        'downto'
        'else'
        'end'
        'except'
        'exports'
        'file'
        'finalization'
        'finally'
        'for'
        'function'
        'goto'
        'if'
        'implementation'
        'in'
        'inherited'
        'initialization'
        'inline'
        'interface'
        'is'
        'label'
        'library'
        'mod'
        'nil'
        'not'
        'object'
        'of'
        'or'
        'out'
        'packed'
        'procedure'
        'program'
        'property'
        'raise'
        'record'
        'repeat'
        'resourcestring'
        'set'
        'shl'
        'shr'
        'string'
        'then'
        'threadvar'
        'to'
        'try'
        'type'
        'unit'
        'until'
        'uses'
        'var'
        'while'
        'with'
        'xor')
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
end