Como colocar o combobox que nem o Internet Explorer

Question

Como colocar o combobox que nem o Internet Explorer, quando eu digito abre automanticamente e vai preenchendo como exemplo do Internet Explorer utilizando IBX pois com o BDE da para se fazer mais com o IBX da mensagem de erro...

Agrade�o qualquer informa��o...

Max.sgj · Answer

Alguem pode me ajudar......

Max.sgj · Answer

Eu consegui para o BDE mas para o IBX da erro na seguinte linha de c�digo: table1.FindNearEst([combobox1.Text]);
Oque devo fazer para resolver isso...

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);

var
l:Integer;
begin

IF (key=VK_BACK) or (key=VK_DELETE) OR (key=VK_LEFT) or (key=VK_RIGHT)
OR (KEY=vk_home) OR (key=VK_END) or (key=VK_SHIFT) or (key=VK_TAB) then exit;

ComboBox1.DroppedDown:=true;
l:=Length(combobox1.text);

table1.FindNearEst([combobox1.Text]);

if Copy(table1.fieldbyname(�name�).asString,1,L)=
Copy(ComboBox1.Text,1,L) then begin

combobox1.Text:=table1.Fieldbyname(�Name�).asString;
combobox1.SelStart:=l;
ComboBox1.SelLength:=Length(ComboBox1.Text)-l;
End;

Max.sgj · Answer

[quote:9c86d1c54c=�max.sgj�]Eu consegui para o BDE mas para o IBX da erro na seguinte linha  de c�digo:  table1.FindNearEst([combobox1.Text]);Oque devo fazer para resolver isso...procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;  Shift: TShiftState);var l:Integer;begin  IF (key=VK_BACK) or (key=VK_DELETE) OR (key=VK_LEFT) or (key=VK_RIGHT)  OR (KEY=vk_home) OR (key=VK_END) or (key=VK_SHIFT) or (key=VK_TAB) then exit;  ComboBox1.DroppedDown:=true;  l:=Length(combobox1.text);  table1.FindNearEst([combobox1.Text]);  if Copy(table1.fieldbyname(�name�).asString,1,L)=     Copy(ComboBox1.Text,1,L) then begin    combobox1.Text:=table1.Fieldbyname(�Name�).asString;    combobox1.SelStart:=l;    ComboBox1.SelLength:=Length(ComboBox1.Text)-l;  End;[/quote:9c86d1c54c]procedure TForm1.FormShow(Sender: TObject);begin  comboBox1.Items.clear;  table1.First;  While not table1.Eof do begin    ComboBox1.Items.add(Table1.Fieldbyname(�Name�).asstring);    Table1.Next;  End...

Max.sgj · Answer

ALguem pode me ajudar...Agrade�o por qualquer informa�ao......

Max.sgj · Answer

alguem pode me ajudar......

Rafael Gomes · Answer

ol� amigo, para fazer o que deseja nao precisa utilizar nenhum codigo, (isso se entendi direito o que deseja fazer ...)

basta configurar duas propriedades do DBComboBox como True, s�o elas:

[b:779443a06d]AutoComplete
AutoDropDown[/b:779443a06d]

espero ter ajudado ...

abra�os!!!

Max.sgj · Answer

N�o tenho estas propriedades utilizo Delphi 5......

Max.sgj · Answer

Eu utilizo Delphi 5 n�o tenho essas propriedades......

Max.sgj · Answer

Alguem pode me dar uma ajuda utilizo Delphi 5...

Tnaires · Answer

Ol�O m�todo FindNearest est� definido apenas para TTable. Nenhum componente do IBX possui esse m�todo.Vc ter� q encontrar uma outra forma d implementar essa busca.O componente LookUpCombo da paleta RxLib possui o comportamento q vc quer.Abra�os...