Comment empêcher un TComboBox de répondre à l'évènement onChange quand le changement est fait par programation

**Gouyon** · 20/12/2024, 15h29

Bonjour

Voilà le problème auquel je suis confronté.

Sur une TForm j'ai des TComboBox pour lesquelles j'ai activé l'évènement onChange et ceci afin de réaliser des opérations quand l'utilisateur change la sélection.

Mais il arrive aussi que je change aussi la sélection par programmation
(Exemple)

Code :

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

1
2
3
4
5
 
if chkTest.isSelected then
 maComboxBox.ItemIndex:=2
else
 maComboxBox.ItemIndex:=10;

Et dans ce cas je ne voudrais pas que la procédure liée à l'évènement onChange soit exécutée.

J'ai essayé plusieurs astuces du genre

Code :

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

1
2
3
4
5
6
7
 
maComboxBox.Enabled:=false;
if chkTest.isSelected then
 maComboxBox.ItemIndex:=2
else
 maComboxBox.ItemIndex:=10;
maComboxBox.Enabled:=true;

Mais sans succès.

L'un d'entre vous connaitrait il une astuce?

En espérant avoir été clair

**anapurna** · 20/12/2024, 16h18

Salut

il te faut conserver un pointer sur la procedure onchage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Type 
  TOnChange = Procedure (Sender : TObject) Of Object
 ... 
Var
  AOnChange : TOnChange ;
Begin 
 AOnChange := maComboxBox.OnChange ;
  maComboxBox.OnChange := Nil;
 if chkTest.isSelected then
 maComboxBox.ItemIndex:=2
else
 maComboxBox.ItemIndex:=10;
maComboxBox.OnChange := AOnChange;

**ShaiLeTroll** · 20/12/2024, 16h55

Pour cela je me fais un Helper

C'est pour un RadioGroup mais c'est pareil

Code :

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

1
2
3
4
5
6
  TRadioGroupSliteHelper = class helper for TRadioGroup
  private
    procedure SetSilentItemIndex(const Value: Integer);
  public
    property SilentItemIndex: Integer write SetSilentItemIndex;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// see https://www.developpez.net/forums/d1576193/environnements-developpement/delphi/composants-vcl/changer-propriete-itemindex-d-tradiogroup-declencher-d-evenement/#post8576809
procedure TRadioGroupSliteHelper.SetSilentItemIndex(const Value: Integer);
var
  ooc: TNotifyEvent;
begin
  ooc := Self.OnClick;
  Self.OnClick := nil;
  try
    Self.ItemIndex:= Value
  finally
    Self.OnClick := ooc;
  end;
end;

**ShaiLeTroll** · 20/12/2024, 18h58

Sinon en VCL, J'ai noté dans un code C++Builder XE3 ceci "OnChange d'un ComboBox ne se produit que lors de la modification utilisateur" et si je l'ai noté c'est que le j'ai observé

D'ailleurs, c'est confirmé par la documentation

Remarque : OnChange ne se produit qu'en réponse aux actions utilisateur. La modification de la programmation de la propriété Text ne déclenche aucun événement OnChange.

C'est pour cela que je n'ai pas de helper pour le TComboBox, et évidemment FMX ne fonctionne pas de la même façon que la VCL, un piège !

Tu peux créer une unité dédiée et la réutiliser.

Code :

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

1
2
3
4
5
6
7
type
  TComboBoxFMXHelper = class helper for FMX.ListBox.TComboBox
  private
    procedure SetSilentItemIndex(const Value: Integer);
  public
    property SilentItemIndex: Integer write SetSilentItemIndex;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TComboBoxFMXHelper.SetSilentItemIndex(const Value: Integer);
var
  ooc: TNotifyEvent;
begin
  ooc := Self.OnChange;
  Self.OnChange := nil;
  try
    Self.ItemIndex := Value;
  finally
    Self.OnChange := ooc;
  end;
end;

Et l'appel est donc très simple

Code :

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

1
2
3
4
if chkTest.isSelected then
 maComboxBox.SilentItemIndex:=2
else
 maComboxBox.SilentItemIndex:=10;

**SergioMaster** · 20/12/2024, 19h09

J'ai toujours privilégié le OnClosePopup dans le cas d'une liste fermée plutôt que le onChange.

**Mat.M** · 20/12/2024, 20h11

Envoyé par Gouyon

Mais sans succès.
En espérant avoir été clair

Subclassing le grand retour...il faut faire du subclassing du contrôle avec l'API SetWindowLong et capter le message OnChange dans une nouvelle procédure.
Le problème c'est que ce n'est pas standard.