Fórum Auto Completar... #226672
17/04/2004
0
Como fazer pra que, quando é digitado algo em um Edit, vá direito para um item de mesmo nome na ListBox?
Bfalcon
Curtir tópico
+ 0
Responder
Posts
18/04/2004
Fabio.hc
Tente assim:
procedure TForm1.Edit1Change(Sender: TObject);
var
S : Array[0..255] of Char;
begin
StrPCopy(S, Edit1.Text);
with ListBox1 do
ItemIndex := Perform(LB_SELECTSTRING, 0, LongInt(@S));
end;
Responder
Gostei + 0
18/04/2004
Bfalcon
Obrigado. Funcionou perfeitamente!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)