Discussion :

[andre corbi]

Je suis un nouvel utilisateur de la POO et j'ai choisi Lazarus car je suis le Monsieur Technique d'une asbl. Les coûts doivent donc être réduits...
Question :
Je voudrais soit sélectionner le texte de la liste du ComboBox, soit taper un texte dans le ComboBox et faire les tests sur le combobox.text après.
Je m’en sors avec l’événement Onexit sinon ça ne va pas (le Enter ne se fait pas au bon moment). Mais on devrait avoir mieux que Onexit qui m’oblige à taper HORS du combobox (pas très "logique") pour compléter mes Edit et tout le reste…
Je ne vois pas comment faire ? (quand j'introduis un nouveau nom qui n’est pas dans la liste, je peux alors après un test, créer une nouvelle entrée dans mon fichier Dbf...)

Merci pour vos éclairages,

[DomDA91]

Bonjour

Voir l'événement 'OnEditingDone' de TComboBox.
Cet événement se produit :

• A l'appui sur Enter après avoir édité quelque chose dans le zone de saisie
• Si un autre élément est sélectionné dans la liste.
• Si le composant perd le focus.

(Dans les deux premiers cas le composant garde le focus).

[andre corbi]

Merci
J'ai déjà essayé et évidemment c'est une solution mais j'aimerais ne pas décider de suite sur la sélection de la liste dans la ComboBox.
Avec le OnEditingDone :
Si on sélectionne un élément de la liste combo, c'est terminé et on passe à l'étape suivante.
On peut aussi taper un nom (nouvel élément) dans la sélection de la ComboBox et ça marche après appui sur le Enter.
==> Mais est-ce possible de sélectionner un élément de la liste puis de le modifier si nécessaire ?
(c'est pour ça que le OnExit me va partiellement bien)
Est-ce possible de trouver une solution en combinant plusieurs événements en y mettant la même valeur ?

[DomDA91]

Est-ce possible de trouver une solution en combinant plusieurs événements en y mettant la même valeur ?

J'avoue ne pas bien comprendre la question, un événement est un événement, pas une variable dans laquelle on peut stocker une valeur.

Par ailleurs pour reprendre une phrase de ton post initial :

Je voudrais soit sélectionner le texte de la liste du ComboBox, soit taper un texte dans le ComboBox et faire les tests sur le combobox.text après.

Il me semble possible, sans passer par un événement de la combobox, de déterminer si le texte de la combobox correspond ou non à un élément de sa liste déroulante :

Code :

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

1
2
3
4
5
6
If Combobox1.Items.IndexOf(Combobox1.Text) < 0 Then Begin
         // ici actions si nouvel élément
    end 
Else Begin
        // et ici actions si élément déjà dans la liste
end;

[BeanzMaster]

Salut pour le comportement que tu souhaites il faut rajouter un Bouton "Valider" Et hop tu peux changer le texte de ton combobox, la validation ne se fera que lorsque l'utilisateur cliquera sur le bouton. Sinon comment faire pour décider si le test sur ta chaine de caractère doit avoir lieux ? c'est impossible soit tu testes quand tu sélectionnes ou as finis de taper ton texte, soit tu vérifie tout globalement par le clique sur le bouton.
Sinon faut faire une AI avec réseaux de neurones et tout le bazar afin que ton logiciel décide "devine" a qu'elle moment il doit vérifier les actions de l'utilisateur

Donc soit tu testes à chaque changement de valeur, soit tu testes toutes tes valeurs lorsque que l'utilisateur le demande.

[andre corbi]

Si je clique sur un élément de la liste du ComboBox, je ne peux plus le modifier ! C'est possible de taper un nouveau nom (avec propriétés autocomplete, sorted ) SI je ne le sélectionne pas dans la liste puis Enter. J'aurais aimé faire les deux sans créer un nouveau réseau neuronal... Simplement un Enter quand soit j'ai sélectionné le nom de la liste (modifié ou non) ou taper un nouveau nom.
Vous m'avez en tous cas fait bien rire !

[BeanzMaster]

Vous m'avez en tous cas fait bien rire !

Tant mieux

Ok l'astuce consiste à ne rien faire dans l'événement EditiongDone

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Tform1.ComboBox1EditingDone(Sender: TObject);
begin
 // Ne fait rien
end;
 
procedure Tform1.ComboBox1Exit(Sender: TObject);
begin
   Showmessage(Combobox1.Text); //---> Teste de la valeur 
end;
 
procedure Tform1.ComboBox1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
  begin    
    ComboBox1Exit(sender);
  end;
end;

et décoches les propriétés AutoSelect et AutoDropDown

je pense que c'est le comportement que tu recherches

Le test sur ta valeur ne se fera que quand tu appuieras su la touche Entrée ou Tab ou que la combobox perdra le focus (clique dans une autre combobox par exemple)

A+