Como colocar o combobox que nem o Internet Explorer
22/01/2006
0
Agradeço qualquer informação...
Max.sgj
Posts
26/01/2006
Max.sgj
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;
26/01/2006
Max.sgj
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
28/01/2006
Rafael Gomes
basta configurar duas propriedades do DBComboBox como True, são elas:
[b:779443a06d]AutoComplete
AutoDropDown[/b:779443a06d]
espero ter ajudado ...
abraços!!!
30/01/2006
Tnaires
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
Clique aqui para fazer login e interagir na Comunidade :)