Auto Completar...

Delphi

17/04/2004

Como fazer pra que, quando é digitado algo em um Edit, vá direito para um item de mesmo nome na ListBox?


Bfalcon

Bfalcon

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

17/04/2004

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;



GOSTEI 0
Bfalcon

Bfalcon

17/04/2004

Obrigado. Funcionou perfeitamente!!


GOSTEI 0
POSTAR