Como colocar o ComboBox quenem o Interner Explores Delhi 7

Question

Como colocar o ComboBox quenem o Interner Explores Delhi 7

J� coloquei as propriedade AutoComplete e AutoDropDown para true, mas o combobox abre pequeneninho e e n�o aparece nada............. do Banco de Dados..........

Night_man · Answer

eu completa com os valores que estao no items dele......

Max2006 · Answer

[quote:dcf9a7b3dc=�SuperMax�]Como colocar o ComboBox quenem o Interner Explores Delhi 7J� coloquei as propriedade AutoComplete e AutoDropDown para true, mas o combobox abre pequeneninho e e n�o aparece nada............. do Banco de Dados..........[/quote:dcf9a7b3dc]Eu coloquei o c�digo asseguir nos eventos do combobox, mas oque est� acontecendo..., quando eu digito VEZ, aparece inverso assim �ZEV� mais os dados do banbo de dados, o que eu quero que fique selecioando e completando quenem no Internet Explorer... algu�m pode me ajudar, estou utilizando Delphi 7 com Firebird....[quote:dcf9a7b3dc]procedure T_T_I_P_P.DBComboBox4KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);Var    ContadorDeRegistros:Integer;begin    if IBTable1.RecordCount >= 1 then    Begin    ContadorDeRegistros:= IBTable1.RecordCount;    DBComboBox4.Items.Clear;    IBTable1.First;    Repeat    DBComboBox4.Items.Add(IBTable1.FieldByName(�NOME�).AsString);    ContadorDeRegistros:= ContadorDeRegistros-1;    if ContadorDeRegistros >=1 Then    Begin        IBTable1.Next;    End;    until ContadorDeRegistros = 0;    End;end;procedure T_T_I_P_P.DBComboBox4KeyPress(Sender: TObject; var Key: Char);begin    if (Key = #13) then    Begin       if IBTable1.RecordCount >= 1 Then       Begin          if IBTable1.Locate(�NOME�,DBComboBox4.text,[])= False tHEN          Begin              IBTable1.Insert;              IBTable1.FieldByName(�NOME�).AsString:= DBComboBox4.text;              IBTable1.Post;    ...

Max2006 · Answer

Algu�m pode me ajudar nesse assunto...?...

Thiago Vidal · Answer

amigo, desculpa falar mas esse seu c�digo t� bem feinho hein?

bom, mas cr�ticas � parte, vamos � ajuda... para utilizar o recurso de AutoCompletar do ComboBox, vc s� precisa definir como True as propriedades AutoComplete e AutoDropDown, e vc deve preencher TODOS os dados na hora que a janela � exibida, e o pr�prio windows se encarregar� de filtrar os registros conforme eles forem sendo mostrados.

segue um exemplo:

procedure TForm1.FormShow(Sender: TObject);
begin
  with DataSet do
  begin
    First;
    while not Eof do
    begin
        ComboBox1.Items.Add(Fields[0].AsString);
        Next;
    end;
  end;  
end;

esta rotina preencher� todos o ComboBox com todos os items do seu DataSet, agora assim que vc come�ar a digitar o windows se encarrega de ir completando o texto automaticamente.

espero ter ajudado!
boa sorte!

Adriano_servitec · Answer

[quote:ad3d056352=�SuperMax�]Como colocar o ComboBox quenem o Interner Explores Delhi 7J� coloquei as propriedade AutoComplete e AutoDropDown para true, mas o combobox abre pequeneninho e e n�o aparece nada............. do Banco de Dados..........[/quote:ad3d056352]Olah amigo, nao sei se ti ajuda, mais eu uso para trazer todos os dados do banco dentro de um combo assim[code:1:ad3d056352]procedure TForm7.FormShow(Sender: TObject);var c: string;beginwith dm.qtbplano do  begin    close;    sql.clear;    combobox1.Clear;    sql.add(�select distinct * from planocontas�);    sql.add(c);    Open;while dm.qtbplano.Eof = false dobegin combobox1.items.add(dm.qtbplano.fieldbyname(�descricao�).AsString); dm.qtbplano.next;end; dm.qtbplano.close;end;end;[/code:1:ad3d056352]Agora esse autocompletar que eu fiz acho que deve ter como melhora-lo[code:1:ad3d056352]//Criando um autocompletar no comboboxprocedure TForm7.ComboBox1Change(Sender: TObject);varAux : integer;beginif DM.qtbplano.LOCATE(�descricao�,copy(combobox1.Text,1,combobox1.SelStart),&#91;loCaseInsensitive, loPartialKey&93;) then begincombobox1.OnChange := nil;Aux := combobox1.SelStart;combobox1.Text := DM.qtbplano.FieldByName(�descricao�).AsString;combobox1.SelStart := Aux;combobox1.OnChange := combobox1Change;end;end;[/code:1:ad3d056352]Se nao for nada disso desconsidere o post...

Adriano_servitec · Answer

[quote:a1164229a8]para utilizar o recurso de AutoCompletar do ComboBox, vc s� precisa definir como True as propriedades AutoComplete e AutoDropDown[/quote:a1164229a8]Desculpe eu ter postado esse autocompletar pos no delphi 5 (o qual estou usando nao tem esse recurso [b:a1164229a8]AutoComplete[/b:a1164229a8], mais achei ele no componente do JEDI chamado jvComboBox esse sim tem esse recurso de autocompletar. Mais como disse o delphi 5 o combobox nao tem a propriedade autocompletar. Mais mesmo assim da para aperfei�oar esse codigo que eu fiz em um EDIT ou MASKEDIT por exemplo, a nao ser que em Delphi superior ao que eu tenho tambem existe essa propriedade AUTOCOMPLETE... :D...

F�rum Como colocar o ComboBox quenem o Interner Explores Delhi 7 #325296