Discussion :

[kabakas]

salut;

pouvez-vous m'aider à résoudre ce problème ? :

j'ai une fiche sur laquelle se trouve 20 TEdits, je veux par exemple changer la couleur de ces TEdits à l'événement "OnChange" lorsque je tape -par exemple- un 0 !
le problème c'est que le même code se répète 20 fois !
est-ce qu'il y' a une méthode plus logique que la répétition...

merci d'avance

-----------
kabakas

[Cl@udius]

Salut

Une petite recherche t'aurait conduit là.


@+

[kabakas]

merci bien "Cl@udius" de ta rapide réponse !
mais la procédure que j'ai dans l'événement est liée aux TEdits par un integer :
par exemple :
le TEdit1 --> Calculer(1);
TEdit2 --> Calculer(2) ... etc

et merci encore

[Cl@udius]

Re
Utilise par exemple la propriété Tag des boutons:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.EditsChange(Sender: TObject);
var
  I: Integer;
begin
  // ...
  I := (Sender as TEdit).Tag;
  Calculer(I);
  // ...
end;

@+

[kabakas]

Re
Utilise par exemple la propriété Tag des boutons:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.EditsChange(Sender: TObject);
var
  I: Integer;
begin
  // ...
  I := (Sender as TEdit).Tag;
  Calculer(I);
  // ...
end;

@+

c'est réglé !
merci encore

une autre question :
ce que vous avez écris ici, je pense qu'il s'applique à toutes les TEdits qui se trouvent sur la fiche ! et comment faire pour que ce code ne s'applique qu'à certaines TEdits ??

[Cl@udius]

... et comment faire pour que ce code ne s'applique qu'à certaines TEdits ??

Il suffit de lier le gestionnaire d'événement uniquement aux TEdit qui t'intéresse.
Tout simplement.

@+