Discussion :

[damien.yep]

Salut tout le monde!!

J'ai un petit problème avec mes frames sous Delphi 5. Je voudrais avoir une procedure utilisée par le frame, et qui soit surchargeable dans l'instance de la frame lorsque je dessine ma feuille l'utilisant.

Pour faire simple, j'ai une frame (MaFrame) qui utilise une procedure MaProcedure. Je veux "surcharger" MaProcedure dans une feuille (MaFeuille) pour ne plus passer dans MaFrame.MaProcedure, mais dans MaFeuille.MaProcedure.

Voila ce que j'ai fait:

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
 
MaFrame = Class(TFrame)
  ...
public
  procedure MaProcedure; virtual;
  ...
end;
 
 
 
01 MaFeuille = Class(TForm)
..   ...
10   MaFrame1 : MaFrame; // ajouté par delphi
11 private
12   procedure MaFrame1.MaProcedure; override;
..   ...
20 end;

Lors de la compilation, j'ai

Ligne 12: Identificateur non déclaré: MaFrame1

J'obitens la même chose si j'utilise la classe MaFrame:

Code :

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

1
2
 
12   procedure MaFrame.MaProcedure; override;

En recherchant dans les différents tutoriels, ils disent que l'instance de la frame est un objet dérivé, mais pas complètement. Il n'y a pas de classe dérivée, et je ne vois pas comment réaliser mon appel.

Savez-vous comment résoudre mon problème??

Merci!!!

[MD Software]

Mais tu ne peux pas ! Pour surcharger, il faut qu'il y ait un lien d'héritage. Là, tu as un lien de composition, ta fiche est composée de ta frame. Donc, la seule chose que tu peux faire dans ta fiche, c'est appeler la méthode de ta frame.

[DMO]

Effectivement, tu ne peux bien pas le faire comme tu l'exposes.
Ceci dit si tu veux faire ca parce que tu ne veux ou ne peux pas intervenir dans le code de TMaFrame, tu peux faire un descendant TMaFrameModifiee = class(TMaFrame), et utiliser une instance de cette TMaFrameModifiee qui redéfinirait MaProcedure;

[damien.yep]

Ok, Merci a tous!

Je vais essayer de creer une variable contenant l'adresse d'une procedure, et donc je pourrais affecter n'importe quelle procedure via MaForm.

@+