Discussion :

[arkhamon]

Bonjour a tous,

une petite question qui va vous paraitre tres con :

j'ai par exemple un composant TEdit et je redefinis la methode "OnChange".
A quel moment se fait l'héritage de OnChange du parent ? en filigrane, je voudrais recuperer la valeur AVANT que l'action se fasse. C'est possible ?

Merci.

[ShaiLeTroll]

Tu n'hérite pas OnChange qui est un évènement, mais DoChange qui est la fonction responsable de l'appel de OnChange

Ensuite, tu décide à quel moment tu lance l'ancienne méthode via le mot clé inherited

Maintenant, il faudrait plutôt surchargé le Message WM_KEY_PRESS ...

[arkhamon]

Donc si je comprends bien :
si je mets le code suivant rattache a l'evenement "on change" de mon objet Tedit :

Code :

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

1
2
3
4
5
6
7
 
Procedure tedit1change(...);
begin
  s := edit1.text;
  inherited change;
  ss := edit1.text;
end;

J'ai bien s qui contient la valeur avant modification et ss qui contient la valeur apres modification c'est ca ?

D'autre part, l'execution "implicite" du inherited (cad si je ne le mets pas moi meme) est elle faite en debut ou en fin de la procedure ?

[Aka Guymelef]

Oulah, tu confonds deux choses, positionner un évènement et redéfinir une méthode d'une classe.

Lorsque tu positionnes une méthode pour répondre à un évènement tu es hors de la classe, dès lors tu ne peux pas avoir aux champs protégés de la classe ou encore l'inherited.

Comme ShaiLeTroll tu dois redéfinir la méthode DoChange de la classe TEdit (donc créer une classe qui hérite de TEdit) puis faire le traitement en question avec l'inherited.

Enfin il n'y a pas d'appel implicite à inherited, c'est toujours explicite

[tourlourou]

on peut aussi envisager de dériver le TEdit en ajoutant un champ FPrevious et en affectant une méthode au OnChange, qui stockera le nouveau Text dans FPrevious, sauf si ça ne convient pas

[CapJack]

Je vais faire simpliste, il y a des tutoriels pour ça sur le site :

Une méthode est comme une procédure.

Un champ est comme une variable.

Une propriété est un "raccourci" vers un champ, qui permet de protéger ce champ des manipulations hasardeuses, et d'ajouter des traitements supplémentaires lors de la modification / lecture.

Un évènement est une propriété particulière, associée à un champ privé d'un des ancêtres, et prévue pour stocker l'adresse d'une méthode d'un autre composant. La définition des évènements est facultative, ils valent nil par défaut (= associé à rien), et sont là seulement pour permettre au développeur d'ajouter des traitements par défaut à certaines occasions (appui sur une touche, déplacement de souris, etc). Et bien entendu, ils ne sont concernés en rien par la notion d'héritage, au sens où les méthodes le sont : mettre inherited devant un appel direct d'évènement est une erreur de syntaxe. Bref.

Seule la méthode préconisée par tourlourou te permettra de faire ce que tu veux. Et si je peux me permettre, étudie un peu les fondements du langage. Je ne le dis pas pour être désagréable, mais simplement parce que le temps que tu y passeras sera bien employé pour la suite.

[arkhamon]

je vais faire aussi simpliste : je voulais simplement savoir s'il etait possible d'avoir l'ancienne valeur d'un Tedit avant que les methodes declenchees par l'appui d'une touche ne soient invoquees, et ce snas etre oblige de defionir un nouveau composant. Je suis un peu fatigue j'ai aps forcement toujours choisi les bon mots.
Et les fondements du langage je les connais assez bien, j'ai parfois simplement des interrogations auxquelles je n'ai pas les reponses, pas la peine de me renvoyer dans mes 22 comme ca.

[CapJack]

Soit.

[Yurck]

mettre inherited devant un appel direct d'évènement est une erreur de syntaxe.

Je sais ça dépend ça dépasse mais pourtant ça dépend. (ici nous avons une référence au 7éme Art pour nous ouvrir vers la culture)

En fait cela dépend de ta méthode ou plutôt technique d'héritage.
Si tu déclares une nouvelle classe héritant d'une autre alors je suis d'accord le inherited ne te conduiras nul part.
Si, par contre, tu crée une fiche ou un datamodule et que tu en hérites une autre de la première alors le inherited te conduiras bien dur le OnChange implémenté dans la fiche parente.

[Aka Guymelef]

Si tu veux vraiment récupérer la valeur avant modification, je te conseilles de te brancher sur l'évènement OnKeyPress (ou OnKeyDown) à ce moment là ton TEdit à la valeur avant que l'utilisateur n'appuie sur une touche et le paramètre Key est la touche tapée par l'utilisateur.

[CapJack]

Si, par contre, tu crée une fiche ou un datamodule et que tu en hérites une autre de la première alors le inherited te conduiras bien dur le OnChange implémenté dans la fiche parente.

Tu peux donner un exemple ? Parce que là, je me trompe certainement, mais dans ce que tu écris, je comprends que tu ne parles pas de l'évènement OnChange du TEdit mais de la méthode Edit1Change(Sender: TObject) implémentée dans la fiche, et affectée à la propriété OnChange, ce qui n'est pas la même chose.. d'ailleurs si on dérive une fiche d'une autre fiche, les valeurs des propriétés - donc des évènements - des composants posés sur ladite fiche restent, évidemment, c'est parfaitement logique, et heureusement d'ailleurs, imaginez que le Edit1 de la fiche descendante se mette à "oublier" les valeurs de ses propriétés, et notamment les adresses des évènements qui lui avaient été attribuées dans la fiche ancêtre ! Mais cela n'a rigoureusement rien à voir avec l'héritage de la propriété en elle-même, tant que le TEdit de la fiche descendante reste un TEdit, il n'y a pas d'héritage du OnChange, seulement conservation d'une valeur (= l'adresse de la méthode associée, qu'elle soit dans la fiche ancêtre, la fiche courante, ou n'importe quel autre composant, ce qui n'a aucune espèce d'importance en la matière, c'est ce qui fait la "magie" de la programmation par composants...) !

Maintenant, si l'on dérivait une classe de TEdit, on pourrait éventuellement - mais je l'ai omis volontairement, j'ai bien dit que j'étais simpliste - utiliser dans le code du descendant la syntaxe inherited OnChange, comme on peut le faire pour n'importe quelle autre propriété, sauf que c'est purement théorique, on peut en parler au mieux comme un cas d'école : en pratique, je ne vois pas bien où cela pourrait mener, d'autant que dans la VCL, les évènements sont rarement conçus pour pouvoir être surchargés (déclaration des champs et procédures dans la partie private, le plus souvent, et qui plus est méthodes statiques et pas virtuelles, etc.).