实现ComboBox输入文字的自动完成

　　WORD lastkey ;
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
　 String value = ComboBox1->Text ;
　 // If the user tried to delete he must not want to change anything.
　 if (lastkey == '\b' || lastkey == VK_DELETE)
　 {
　　 lastkey = 0 ;
　　 return ;
　 }
　 lastkey = 0 ;
　 // 确保使用者没有在中间插入字符
　 if (ComboBox1->SelStart != value.Length ())
　　 return ;
　 // 在下拉列表中寻找匹配项.
　 int index = SendMessage (ComboBox1->Handle, CB_FINDSTRING, -1, (LPARAM) value.c_str ()) ;
　 if (index >= 0)
　 {
　　 // 找到匹配项并显示.
　　 ComboBox1->ItemIndex = index ;
　　 String newtext = ComboBox1->Text ;
　　 SendMessage (ComboBox1->Handle, CB_SETEDITSEL, 0, MAKELPARAM (value.Length (), -1)) ;
　 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key,
　 TShiftState Shift)
{
　 // 按下的最后一个键值.
　 lastkey = Key ;
}
//---------------------------------------------------------------------------