Discussion :

[aliwassem]

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

Code :

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

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.

d'avance

[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.

[popo]

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

[aliwassem]

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.

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

la procedure onchange declance

[pepi22]

Code :

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

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 ...