Como colocar o combobox que nem o Internet Explorer

22/01/2006

0

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

Max.sgj

Responder

Posts

24/01/2006

Max.sgj

Alguem pode me ajudar...


Responder

26/01/2006

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;


Responder

26/01/2006

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;


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


Responder

27/01/2006

Max.sgj

ALguem pode me ajudar...

Agradeço por qualquer informaçao...


Responder

28/01/2006

Max.sgj

alguem pode me ajudar...


Responder

28/01/2006

Rafael Gomes

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!!!


Responder

28/01/2006

Max.sgj

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


Responder

28/01/2006

Max.sgj

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


Responder

30/01/2006

Max.sgj

Alguem pode me dar uma ajuda utilizo Delphi 5


Responder

30/01/2006

Tnaires

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar