|
- Przeszukiwanie ListBox przy wpisywaniu tekstu do pola Edit.
Tworzymy na formie dwa obiekty: ListBox1 i Edit1, do ListBox1 wpisujemy jakieś przykładowe stringi. Teraz aby podczas wpisywania tekstu do Edit1 w ListBox1 była zaznaczana najbardziej odpowiadająca pozycja stosujemy komunikat LB_FINDSTRING:
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
int index = ListBox1->Perform(LB_FINDSTRING, -1,
(LPARAM)Edit1->Text.c_str());
if (index != LB_ERR) ListBox1->ItemIndex = index;
}
|