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.
Проект с примером:
Dmitry.