Delphi dicas

Buscas rápidas no tlistbox

Procedure TForm1.FormCreate(Sender: TObject);

begin

        ListBox1.Items.Add ('Melão');

        ListBox1.Items.Add ('Maça');

        ListBox1.Items.Add ('Limão');

        ListBox1.Items.Add ('Tomate');

        ListBox1.Items.Add ('Guaraná');

        ListBox1.Items.Add ('Jabuticaba');

        ListBox1.Items.Add ('Uxi');

        ListBox1.Items.Add ('Laranja');

end;



procedure TForm1.Edit1Change(Sender: TObject);

begin

        Listbox1.Perform(LB_SELECTSTRING,0,LongInt(PChar(Edit1.Text)));

end;

por : Victor Roberto