Topic: [Script] Quick search for ComboBox
It allows you to quickly find the desired value in the list 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.
Download project:
http://myvisualdatabase.com/forum/misc. … download=1