TListBox
24.07.1999
  • 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;
}