Discussion :

[SergioMaster]

Bonjour,
Le composant TCombobox en FMX n'a pas d'auto complétion
Après avoir un peu fouillé dans le web il y a bien une solution proposée par exemple ici
mais elle ne me convient pas (en premier lieu parce que la recherche se fait par rapport au début du texte).

Pour faire plus bref, je cherche à obtenir l'équivalent un TDBLookupCombobox de la VCL

J'ai alors pensé à allier un TListView avec son option searchbox à un simple TEdit

après clic sur le bouton de recherche

et j'avoue cela fonctionne plutôt pas mal et avec peu de code, avantage certain je peux "filtrer" dans ma recherche selon le nom, mais aussi la ville. Même s'il y a encore un peu de travail à faire sur l'obtention du résultat (cf le commentaire du code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.ListeClientsItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
SearchClient.Text:=LeftStr(AItem.Text,4); // uniquement le code client, améliorable ?
ListeClients.Visible:=False;
end;
 
procedure TForm1.SearchEditButton1Click(Sender: TObject);
begin
ListeClients.Visible:=True;
end;

Seul hic, si l'utilisateur décide d'abandonner la recherche je ne vois pas, et c'est l'objet de ma question, comment abandonner la liste des clients ?
J'ai tenté le OnKeyDown mais la touche (vkescape) n'est pas interceptée quand on est à l'intérieur de la boite de recherche de la liste une autre idée ?

[SergioMaster]

En fait, la solution, je l'ai trouvé grâce à une de mes discussions
J'y avais indiqué que mon astuce pouvait servir à autre chose que la hauteur, hé bien je ne croyais pas que cela pouvait servir à attraper les touches pressées mais si ! Un helper, un peu de code, une unité supplémentaire et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses ... FMX.SearchBox;
 
type
  THackListView = Class(TListViewBase);
 
procedure TForm1.FormCreate(Sender: TObject);
begin
FDClients.Active:=True;
if ListeClients.controls[1].ClassType = TSearchBox 
  then
   TSearchBox(ListeClients.controls[1]).OnKeyDown:=ListeClientsKeyDown;
end;

Voilà une petite astuce qui va faire l'objet d'un billet et peut-être un petit tutoriel (pour peu que vous m'y encouragiez )
il me faut juste maintenant traiter correctement cette partie "valeur" SearchClient.Text:=LeftStr(AItem.Text,4); // uniquement le code client, améliorable ?faite à la va-vite avant de faire une publication