Comment détecter une modification ?

Bonsoir,

j'aimerais savoir comment je peux faire pour détecter un quelconque
changement dans mes formulaires

c'est pour faire un boutton appliquer vous voyez tant que je n'ai rien changé le boutton appliquer est enable := false;
mais dès que je change qqchose il le mets a enabled := true;

c'est pour ne pas répeter la meme chose plusieur fois dans les évenements onclick et tout ça

Merci :lol:

Que veut tu dire par formulaire ? une fiche pleine de TEdit , Tmemo..
Si oui je pense que tu devras passer par tout tes composants , et dans leur evenement Onchange appeler une fonction générale à tout tes composants qui fera ton traitement . Par contre si tu rentre dans une edition sans faire de modification , il le verra comme une modification , si cela est genant , tu dois gerer les evenements OnEnter et OnExit et comparer le contenue de l'editeur.

bye

Je veux pas paraitre rabasjoie mais n'ya t'il pas d'autre solutions les gars?

Citation:

---

Envoyé par programaniac

Je veux pas paraitre rabasjoie mais n'ya t'il pas d'autre solutions les gars?

---

Est-ce si terrible que ça ? A moins que tu n'aies déjà un gestionnaire OnChange spécifique pour chacun de tes contrôles, tu peux utiliser le même pour tous, et y modifier l'état de ton bouton ==> une seule ligne de code :lol:

Bonjour,
Le Sujet (le titre de message) doit être Explicatif.
Bon courage a tous.

Une solution également, qui est sympa en cas de changement de ton formulaire dans 6 mois et pour éviter d'oublier d'affecter 'OnChange' à tes nouvelles zones est d'affecter dynamiquement l'évenement à l'ouverture de la fiche (un peu plus lent mais imperceptible en général)

Evenement générique

Code:

---

1 2 3 4

procedure TForm1.ElementChange( Sender: TObject ) begin MonBouton.Enabled := True; end;

---

Affectation de l'évenement générique sur tout tes TEdits

Code:

---

1 2 3 4 5 6 7 8

procedure TFStat6.FormShow(Sender: TObject); begin // remplissage des tes zones, d'abord pour for i := 0 to Self.ComponentCount - 1 do if ( Self.Components[ i ] is TEdit ) or ( Self.Components[ i ] is TMemo ) // rajouter les classes que tu veux then TCustomEdit( Self.components[ i ] ).OnChange := ElementChange; end;

---

Attention, l'évt OnChange n'est dispo qu'à partir de la classe TCustomEdit.
Si tu veux faire de même pour des CheckBox par exemple, tu devras affecter l'évenement OnClick, etc.. selon la nature de tes composants.

OU BIEN tu décides de gérer les changement au niveau de Enter ou Exit, et la tous tes composants, qui descendent forcément d'un TWinControl, auront l'évt Enter ou Exit. Cela simplifie les differents cas à prendre en charge au niveau de l'affectation de l'evt des composants

Dans ce cas le code dans le show est simplifié:

Code:

---

1 2 3

for i := 0 to Self.ComponentCount - 1 do if Self.Components[ i ] is TWinControl then TWinControl( Self.Components[ i ] ).OnExit := MonExit;

---

mais bon, il faudrait comparer avec le OnEnter... générique bien sur... pour avoir tafonctione MonBouton.Enabled sur une réelle modif de la zone