Fórum ComboBox #225493

//Autopreencher ao digitar para ComboBox, parecido com o IE e Netscape 

Form1 = class(Tform1) 
Combobox1 : Tcombobox; 
private 
Autopreencher : boolean; 

Precisamos definir os métodos OnChange, OnKeyPress e OnEnter, como segue: 

procedure Tform1.Combobox1Enter(Sender: TObject); 
begin 
autopreencher := true; 

end; 

procedure Tform1.Combobox1Change(Sender: TObject); 
var 
tam,cont : integer; 
begin 

if autopreencher then with (sender as Tcombobox) do 
begin 
tam := length(text); 
for cont := 0 to items.Count - 1 do 
if 0=ansicomparetext(text,copy(items.Strings[cont],1,tam)) then 
begin 
text := items.strings[cont]; 
selstart := tam; 
sellength := length(text); 
break; 
end; 
end; 

end; 

procedure Tform1.Combobox1KeyPress(Sender: TObject; var Key: Char); 
var 
prox : boolean; 
begin 
with (sender as tcombobox) do 
begin 
Autopreencher := true; 
prox := false; 
case ord(key) of 
vk_return : begin 
selstart := length(text); 
sellength := 0; 
key := #0; 
DroppedDown := false; 
Prox := true; 
end; 
vk_back : Autopreencher := false; 
end; 
if (not Autopreencher) and (SelText <> ´´) then 
begin 
text := copy(text,1,selstart); 
selstart := length(text); 
sellength := 0; 
key := 0; 
end; 
end; 
if prox then findnextcontrol(sender as tcombobox,true,true,false).SetFocus; 

end;