Topic: [Скрипт] Быстрый поиск для ComboBox

Позволяет быстро найти необходимое значение в списке ComboBox

procedure Form1_edGroupSearch_OnChange (Sender: string);
begin
    Form1.cbGroups.dbFilter := 'groupname LIKE "%'+ Form1.edGroupSearch.Text +'%"';
    UpdateDatabase('groups');

    if Form1.cbGroups.Items.Count = 2 then
    begin
        Form1.cbGroups.DroppedDown:=False;
        Form1.cbGroups.ItemIndex := 1;
    end else Form1.cbGroups.DroppedDown:=True;
end;

begin
    Form1.edGroupSearch.TextHint := 'Search for groups...';
end.


Проект с примером:

Post's attachments

Attachment icon Search in ComboBox - Phone Book.zip 52.89 kb, 1631 downloads since 2015-05-01 

Attachment icon Search in ComboBox 2.zip 56.19 kb, 1047 downloads since 2016-10-20 

Attachment icon Search in ComboBox 3.zip 57.23 kb, 532 downloads since 2017-07-18 

Dmitry.