Procédure OnChange dans un TEdit

:salut:

on generale quand on utilise l'event OnChange pour un TEdit il faut que la nouvelle valeur differant de la 1ere valeur....

Code:

---

1 2 3 4 5 6 7 8 9 10

Procedure TForm1.Edit1OnChange(Sender:TObject); begin showmessage('salut'); end;   Procedure TForm1.Button1Onclick(Sender:TObject); begin Edit1.text := Edit2.text; end;

---

alors est ce que je peux avoir le message Salut meme si les deux valeurs (nouvelle et precedent) sont egaux.

:merci: d'avance

Bonjour,

L'évènement OnChange ne se déclenchera si, et seulement si les valeurs sont différentes (la casse est sensible) (toto <> Toto).

Je ne saisis pas bien le pourquoi de votre question?

Voulez-vous déclencher l'évènement même si les valeurs sont identiques?

Si oui,

Un simple appel à la procedure Edit1OnChange suffit.

Effectivement, si le champs n'a pas changé la procédure ne se lancera pas.
Sinon, si tu veux déclencher une action même si le contenu de ton Edit n'a pas changé, tu peux utiliser l'évenment OnExit

Citation:

---

Envoyé par pepi22

Bonjour,

L'évènement OnChange ne se déclenchera si, et seulement si les valeurs sont différentes (la casse est sensible) (toto <> Toto).

Je ne saisis pas bien le pourquoi de votre question?

Voulez-vous déclencher l'évènement même si les valeurs sont identiques?

Si oui,

Un simple appel à la procedure Edit1OnChange suffit.

---

:salut:

oui exactement quand je met par example edit1.text := une valeur

la procedure onchange declance

:merci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

if Edit1.Text = 'Une valeur' then begin //Ici pas besoin de mettre la valeur car ils sont déja identique //Déclencher seulement l'évènement edit1onchange(self); end else begin //Ici OnChange va se déclencher tout seul edit1.text := 'Une valeur'; end;

---

Dans quel but voulez vous utilisez ceci?

Car ce n'est peut être pas la bonne solution (Dans le cas d'un formulaire complet) ...

Exposez plus clairement votre problème s'il vous plaît ...