Discussion :

[teska]

Bonjour,

J'utilise un composant dérivé d'un TEdit qui surcharge la méthode "Change" pour n'accepter que les valeurs numériques, jusque là rien d'extraordinaire. Par contre, quand j'affecte une procédure à l'évènement OnChange des instances de cette classe, ça n'appelle plus la version surchargée de "Change" qui n'accepte que les valeurs numériques. J'ai bien entendu pensé à utiliser "inherited", mais ça ne fait rien et pas moyen de mettre un point d'arrêt dessus, le compilateur doit surement le faire sauter car il ne sert à rien.

Donc comment doit-on faire normalement pour surcharger la méthode OnChange des TEdit pour mettre du code en commun, tout en gardant la possibilité de mettre du code propre à chaque instance dans l'évènement OnChange ?

Merci d'avance !

[tourlourou]

pê comme ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
TMyEdit.Create;
begin
  inherited;
  OnChange:=OnMyChange;
end;
 
TMyEdit.OnMyChange
begin
  // blabla
  SpecificChange; 
end;
 
TMyEdit.SpecificChange;
begin
  Inc(X);
end;
 
TMyDerivedEdit.SpecificChange;
begin
  Dec(X);
end;

[sjrd]

Peux-tu montrer le code concerné ?

Et aussi : es-tu sur d'avoir bien spécifié override lorsque tu as surchargé la méthode Change, car ce pourrait être une cause du problème.

[teska]

Je viens d'éditer mon message original, je m'étais mal exprimé, je veux juste avoir une seule classe dérivée, et ensuite créer des composants de cette classe dérivée et leur affecter une procédure particulière à chacun via l'EDI, tout en appelant quand même le code en commun écrit dans la surcharge de la méthode Change.

Déjà merci Tourlourou pour ta réponse mais si je fais ça, il faudrait que je crée une classe dérivée à chaque fois que je veux rajouter un composant dans ma fenêtre.

Pour le code c'est vraiment minime, mais le voici quand même (et oui j'avais pensé à override)

Pour le composant TMyEdit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TMyEdit = class(TEdit)
protected
  procedure Change; override;
end;
 
[...]
 
procedure TMyEdit.Change;
begin
  ShowMessage('Si tu lis ça c''est que ça marche');
end;

Pour une fenêtre quelconque contenant un composant visuel TMyEdit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TfrmMollierDiagram = class(TForm)
  MyEdit: TMyEdit;
  procedure MyEditChange(Sender: TObject);
end;
 
[...]
 
procedure TForm1.MyEditChange(Sender: TObject);
begin
  inherited; //Ne fonctionne malheureusement pas, ça devrait appeler le message disant que c'est ok
 
  ShowMessage('Je suis le seul message qui va apparaître si on modifie le texte de Sender');
end;

Voilà, je pense que ce sera plus clair comme ça. A mon avis c'est juste un truc tout bête dont je n'ai pas connaissance, je n'ai pas l'habitude de faire ce genre de choses en Delphi.

En tout cas merci d'avance pour toute info !

[sjrd]

Supprime le inherited dans le OnChange : il n'a pas sa place là. On n'utilise inherited dans un gestionnaire d'événement que lorsque la fenêtre a été créée par dérivation d'une autre fenêtre du projet. C'est un cas super rare, et je considère d'ailleurs cela comme une astuce du langage permettant de supporter les fenêtres dérivées de Delphi.

Par contre, ajoute un inherited dans le Change de ton TMyEdit. Là tu en auras besoin.

Cela dit, tu peux tester ainsi mais ce ne devrait pas résoudre le problème

[tourlourou]

et comme ceci ?

schématiquement, hors delphi...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
type
  TMyEdit=class(TEdit)
  private
    FMyChange: procedure of object;
  public
    procedure Change; override;
  end;
 
procedure TMyEdit.Change; 
begin
  inherited;
  // blabla commun
  if Assigned(FMyChange) then FMyChange(Sender);
end;

[teska]

Tourlourou, ta méthode fait l'inverse en fait, à savoir que dans mon cas la méthode TMyEdit.Change n'est jamais appelée si le OnChange de l'instance est assigné, donc il faudrait plutôt que ce soit OnChange qui appelle Change, mais en faisant ça (donc en passant Change en public), on se retrouve avec une boucle infinie vu qu'ils s'appellent l'un l'autre. Donc en fait j'ai créé une fonction publique membre de TMyEdit, appelée automatiquement par Change, et appelée manuellement dans le OnChange des instances dont le OnChange est assigné.

Je pensais qu'il y aurait une manière plus propre de le faire mais apparemment non en fait. Merci quand même pour vos conseils et remarques, ça m'aura permis de faire évoluer ma réflexion vers cette solution qui est suffisamment satisfaisante pour mes besoins.