Fórum Pesquisa no Combobox (?) #276539
11/04/2005
0
Tenho um ComboBox e quero q ao usuário digitar algo, que ele abra automaticamente e aponte o 1º item q tiver o caractere q ele digitou. Eu sei q deve-se fazer uma pesquisa, mas não sei como acessar os itens linha-a-linha. Também não sei como comparar apenas o 1º caractere do item com o 1º digitado, o 2º com o 2º, ...
Alguém poderia me ajudar?
Alguém poderia me ajudar?
Sérgio Gobbo
Curtir tópico
+ 0
Responder
Posts
12/04/2005
Eliane Dorr
Eu tenho uma pesquisa da seguinte maneira: dbgrid, combobox e edit. Criei os seguintes eventos e funciona legal. Dou um clique na coluna do dbgrid para informar através de que campo eu quero a consulta. Aí no edit eu informo o dado a ser pesquisado e o ponteiro vai posicionando conforme vou digitando.
procedure TFDuplicatas.DBGrid1TitleClick(Column: TColumn);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).IndexFieldNames:=Column.Field.FieldName;
DBGrid1.Realign;
ComboBox1.Text:=Column.Field.FieldName;
Edit1.Text:=´´;
Edit1.SetFocus;
end;
procedure TFDuplicatas.Edit1Change(Sender: TObject);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).FindNearest([Edit1.Text]);
end;
Espero ter ajudado.
procedure TFDuplicatas.DBGrid1TitleClick(Column: TColumn);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).IndexFieldNames:=Column.Field.FieldName;
DBGrid1.Realign;
ComboBox1.Text:=Column.Field.FieldName;
Edit1.Text:=´´;
Edit1.SetFocus;
end;
procedure TFDuplicatas.Edit1Change(Sender: TObject);
begin
(DMDupa.CDSDuplicatas as TClientDataSet).FindNearest([Edit1.Text]);
end;
Espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)