Discussion :

[Clorish]

Je cherche a creer une sorte d'editeur de proprietee facon Borland.
J'ai un REcord contenant plusieurs valeurs et une serie d'edit me permettant de demander a l'utilisateur des valeurs.

Mon but et est remplir le record en fonction des donnees lues dans mes edits en liant mes edit a une procedure de"remplissage" via l'evenement OnChange.

Mon souci c'est qu'a certains moments, l'utilisateur selectionne un objet et je doit afficher le contenu de mon record dans les edits .. ce qui declanche un OnChange qui remet a jour mon record, entrainnant des erreurs par moments.

J'aimerais pouvoir "desactiver" a certains moment cet evenement OnChange.
Un moyen simple ? et efficace ?

[Bob Deuxfleurs]

une variable mise a vrai au début du remplissage des edit et mise a faux dès que le remplissage est terminé.

et sur le OnChange, tu teste la variable pour sortir tout de suite si tu est en affichage.

[Clorish]

J'ai pense a ca bien sur ... mais dans mon cas ca complique un peu ..... j'aurais aime d'autres astuces

[Bob Deuxfleurs]

Il est possible aussi lorsque tu remplis ton TEdit de mémoriser son évènement, de le remplacer par nil, puis de faire le changement et enfin de réassigner l'évènement.

genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Edit2Change(Sender: TObject);
var
	OldEvent: TNotifyEvent;
begin
OldEvent := Edit1.OnChange;
Edit1.OnChange := nil;
Edit1.Text := Edit2.Text;
Edit1.OnChange := OldEvent;
end;

[Clorish]

Sans vouloir etre casse pied .... je trouve ca un peu "bricolage" ;pp

[sjrd]

Non non c'est ce qui se fait de plus propre dans ce genre de cas et tout le monde utilise ce système... sauf toi, pour l'instant.

[Clorish]

lol oki ... je vais voir ca ;ppp
J'ai pas encore assez d'experiance pour vraiement faire la diff entre prog propre et bourrine ... et jeveux plus programmer comme un porc

[Bob Deuxfleurs]

De manière plus propre, il faudrais lorsque tu tente de mettre a jour ton record pouvoir tester si tu as le droit de le faire. Une sorte de verrou quoi. Quand tu affiche, tu verrouille, du coup il n'y as pas de mise a jour, quand tu as finis d'afficher, tu deverrouille et c'est bon.

[Clorish]

Bon j'ai mis en place 2 methodes :

Code :

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

1
2
3
 
Procedure LockChange;
Procedure UnlockChange;

Dont l'une met a nil nes evenements OnChange etl l'autre affecte la procedure gestionnaire de l'evenement OnChange.

Ensuite j'encadre mes affectation de ces 2 procedures un peut comme on le fait avec les canvas et la methode "Lock"

MErci ;p