Discussion :

[looping]

Bonjour,

Il y 12 ans que j'ai codé ce truc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm90.FormShow(Sender: TObject);
var TmpEvt : TNotifyEvent;
begin
 
tmpevt := AdvOfficeRadioGroup1.Onclick;
AdvOfficeRadioGroup1.Onclick:= nil;
AdvOfficeRadioGroup1.ItemIndex:=2;
AdvOfficeRadioGroup1.Onclick:=TmpEvt ;
 
suite du traitement ....
 
end;

A quoi sert cette variable TNotifyEvent !!
J'ai du faire ça pour initialiser le radioGroup, mais aujourd'hui je ne comprends plus ce que j'ai fait ?


Cordialement

[ShaiLeTroll]

C'est surement pour éviter que le OnClick se produise lors du ItemIndex

Regarde ce sujet sur les Helper avec un SilentItemIndex pouvant rendre le code plus compréhensible si tu migres sur un Delphi supérieur à XE2 ...
Si AdvOfficeRadioGroup1 hérite d'un TRadioGroup, tu peux d'ailleurs directement utiliser TRadioGroupSliteHelper (suffit de faire un uses), ton code sera

Code :

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

1
2
3
4
5
6
7
procedure TForm90.FormShow(Sender: TObject);
begin
  AdvOfficeRadioGroup1.SilentItemIndex:=2;
 
suite du traitement ....
 
end;

Si AdvOfficeRadioGroup1 hérite d'un TCustomRadioGroup faut juste adpater le Helper class helper for TRadioGroup.
Si AdvOfficeRadioGroup1 hérite d'un composant autre, c'est TMS, il aime tout réinventé, class helper for TAdvOfficeRadioGroup.


Même principe pour un SilentChecked

[XeGregory]

Tu n’es pas le seul à te poser ce genre de question après avoir relu un vieux bout de code

TmpEvt est une variable temporaire qui sert à stocker le gestionnaire d’événement OnClick du composant AdvOfficeRadioGroup1.
L’idée derrière cette manipulation est d’empêcher l’exécution de l’événement OnClick pendant que tu modifies ItemIndex, pour éviter que l’action ne déclenche une logique involontaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm90.FormShow(Sender: TObject);
var TmpEvt : TNotifyEvent;
begin
 
tmpevt := AdvOfficeRadioGroup1.Onclick;
AdvOfficeRadioGroup1.Onclick:= nil;
AdvOfficeRadioGroup1.ItemIndex:=2;
AdvOfficeRadioGroup1.Onclick:=TmpEvt ;
 
suite du traitement ....
 
end;