标题: 实现ComboBox输入文字的自动完成 [打印本页]

---

作者: w-cat    时间: 2006-3-29 20:03     标题: 实现ComboBox输入文字的自动完成

实现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
}

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0