Discussion :

[PierDIDI]

Je rentre dans une procedure qui peut etre appelée par different evenements Change.
Dans cette procedure je modifis le contenu d'un champ, ce qui me relance la procedure parceque ce champ utilise un des evenements change.
Comment empécher la relance de cette procedure?

[jejecool]

J'ai une solution mais c pas super :
tu peux désactiver le on change puis faire tes modif et ensuite remettre le onchange actif :

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
 
procedure taprocedure;
 
var notify:tnotifyevent;
 
begin
    notify:=edit1.OnChange;
    edit1.OnChange:=nil;
 
    ...
    tes modifs
    ...
 
   edit1.onchange:=notify;
 
end;

voila

[Lung]

Tu peux utiliser un booléen.
C'est tous simple, et c'est plutôt propre comme solution.

[Bloon]

Une solution générique consiste à utiliser la propriété Tag (si elle ne te sert pas à autre chose) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if not (sender is TComponent) or ((sender as TComponent).Tag <> 0) then
  exit;
with (sender as TComponent) do
try
  Tag := 1;
  // Les modifs...
  // ...
  // ...
finally
  Tag := 0;
end;

J'ai comparé Sender à TComponent mais s'il s'agit d'un TEdit, c'est mieux de mettre with (sender as TEdit) do ...

A+

Bloon