Discussion :

[unja2010]

salut j'ai rechercher l’événement si on clique sur combobox (ou sur la Flèche bas de combobox) le message suivant s'affiche: "Salut . Vous avez cliqué sur combobox1"

mon style de combobox est "csDropDownList"

j'ai essai l’événement OnClick
mais la fonctionnement de l’événement est: Si On click sur un des items disponible

[SergioMaster]

Bonjour,

s'il s'agit de VCL utilisez OnDropDown, en FMX OnPopup (quoique le OnClick fonctionne avec ce framework)

Sauf que, d'après mes tests avec une version starter (mon poste principal est en mise à jour) l'utilisation de showmessage à l'intérieur de cet évènement fait perdre le focus et donc n'affiche plus la liste de choix ou plus exactement affiche puis referme (sorte de flash)

P.S. indiquer la version de Delphi et le framework (VCL/FMX) et même l'environnement aide, si vous ne voulez pas avoir à le répéter à chaque nouvelle discussion pourquoi ne pas l'indiquer en signature (voir votre tableau de bord pour modifier/ajouter une signature)?

[unja2010]

MERCI SergioMaster POUR de L'alarme pour la signature

j'ai ajouter mon signature

l'événement OnDropDown est Bien travaillé Quand j"ai clique sur la Flèche bas de combobox (la première partie de mon Problème est résolu )

La deuxième partie est:
restée (si on clique sur combobox) Je veux charger le résultat d'une requête dans items )

quelle est l’événement pour résolu La deuxième partie ?

[NABIL74]

La deuxième partie est:
restée (si on clique sur combobox) Je veux charger le résultat d'une requête dans items )

quelle est l’événement pour résolu La deuxième partie ?

Bonsoir,

Charger le résultat de votre requête :

Code :

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

1
2
3
4
5
6
Form1.JvLookupCombo1.Items.Clear;
Form1.Query1.First;
while not Form1.Query1.Eof do begin
Form1.JvLookupCombo1.Items.Add(Form1.Query1.FieldValues['Classe']);
Form1.Query1.Next;
end;

[unja2010]

NABIL74 , quelle est l’événement , pour placez le code

[SergioMaster]

Bonjour,

OnDropDown s'il y a des conditions particulières

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
18
19
procedure form1.Combobox1DropDown(Sender : TObject);
var AQuery : TFDQuery;
begin
ComboBox1.Items.Clear;
AQuery:=TFDQUery.Create(Self);
try
  AQuery.Connection:=...;
  AQuery.SQL.Text:='SELECT Item FROM Table WHERE ...';
  AQuery.Active:=True;
  While not AQuery.EOF do
    begin 
      Combobox1.Items.Add(Aquery.FieldBYname('Item').asString);
      AQuery.Next;
    end;
  AQuery.Active:=False;
finally
 AQuery.Free;
end;
end;

AfterOpen pour une table ou une query déjà déclarée
mais aussi OnActivate, OnCreate ... il y a trop de possibilités et pas assez d'informations