输入法编程

开发平台：

Delphi

MainFrm.dfm：源码内容

							object MainForm: TMainForm
  Left = 192
  Top = 129
  BorderStyle = bsDialog
  Caption = '用拼音首字符序列来实现检索功能'
  ClientHeight = 289
  ClientWidth = 452
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 50
    Top = 85
    Width = 36
    Height = 12
    Caption = '中文：'
  end
  object Label2: TLabel
    Left = 275
    Top = 85
    Width = 30
    Height = 12
    Caption = '拼音:'
  end
  object Label3: TLabel
    Left = 65
    Top = 25
    Width = 276
    Height = 24
    Caption = 
      '请在左边的‘中文’中填入中文，按‘转化’按钮，'#13#10'在右边的拼音中即' +
      '可显示填入的中文的拼音'
  end
  object Label4: TLabel
    Left = 55
    Top = 251
    Width = 264
    Height = 12
    Caption = '许国华 程序如有问题请EMail: nick_xu@sina.com'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 55
    Top = 271
    Width = 186
    Height = 12
    Caption = 'DELPHI大学（xuguohua.yeah.net）'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 55
    Top = 226
    Width = 120
    Height = 12
    Caption = '本程序不能区分多音字'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object ChineseEdt: TEdit
    Left = 50
    Top = 105
    Width = 166
    Height = 20
    TabOrder = 0
  end
  object PYEdt: TEdit
    Left = 275
    Top = 105
    Width = 151
    Height = 20
    TabOrder = 1
  end
  object btnConvert: TButton
    Left = 170
    Top = 190
    Width = 75
    Height = 25
    Caption = '转化'
    TabOrder = 2
    OnClick = btnConvertClick
  end
end

						