Surcharger la méthode Create du composant TImage

Citation:

---

Envoyé par ero-sennin

Oops, autant pour moi!

Je débute juste dans le monde de la POO et j'ai encore pas mal à apprendre !

Pas facile de naviguer entre toutes ces unités :aie:

Merci pour cette info Pedro ;)

---

Avec plaisir :D

Citation:

---

Envoyé par ero-sennin

Donc, je dois utilisé la VCL et non les CLX ?
C'était donc ca mon erreur? Mettre les Q... alors qu'il ne fallait mettre que les unités VCL!

---

En fait, cela dépend de ce que tu veux faire. Si tu veux du multi plateforme (exporter facilement vers Kylix par exemple), utilise la CLX. Sinon, utilise la VCL. Ce sera beaucoup plus simple.
En effet, la CLX nécessite le déploiement d'une DLL pour que le programme fonctionne sur un poste sans Delphi (qtintf.dll)
Toutefois, suivant les versions de Delphi, la VCL et la CLX sont légèrement différentes. Par exemple, sous Delphi 7, MessageDlg de l'unité QDialogs (CLX) permet de spécifier le bouton par défaut de la boite. Ce que ne permet pas par défaut l'unité Dialogs (VCL).
Ton erreur venait du fait que tu tentais de transtyper des classes VCL avec des classes CLX (ou vice versa). Elles n'ont pas le même nom et n'ont pas les mêmes méthodes. C'est donc impossible.
Le "Q" devant les unités signifie simplement que l'unité est l'équivalente CLX de l'unité VCL du même nom.

Que dire de plus, tout est clair !! :king:

Je comprends mieux le fonctionnement de ces unités!
Je comprends mieux maintenant pourquoi ca ne fonctionner pas !

On va rester simple pour commencer, la VCL me suffit amplement !

Encore merci pour ces infos ;)

Je réouvre le Post ! Bé oui, je m'en sors pas :oops:

Mon soucis :
ajouter des paramètre supplémentaire à mon create, ton en gardant les paramètres de ceux de la classe mère.

Dans la classe TTables (héritée de TImage) :

Code:

---

1 2 3 4 5 6 7 8 9 10

constructor Create(AOwner: TComponent);override;   implementation   constructor TTables.Create(AOwner: TComponent); begin Inherited; nbElements:=0; indiceCourant:=0; end;

---

Dans la classe TEntite (héritée de TTables)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

constructor Create(AOwner: TComponent);override;   implementation   constructor TEntite.Create(AOwner: TComponent); begin inherited; Self.Width:=150; Self.Height:=200; Self.Canvas.Pen.Color:=clBlack; Self.Canvas.Brush.Color:= clWhite; Self.Canvas.Brush.Style:=bsSolid; Self.Canvas.Rectangle(0,0,Self.Width,Self.Height); Self.Canvas.Polyline([Point(0,20),Point(Self.Width,20)]); Repaint; end;

---

Dans la classe TRelation (héritée de TTables)

Code:

---

1 2 3 4 5 6 7 8 9

constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);override;   implementation   constructor TRelation.Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite); begin inherited; //suite du code à définir end;

---

Mais j'ai cette erreur :

Code:

---

[Erreur] Relation.pas(11): La déclaration de 'Create' diffère de la déclaration précédente

---

Cela viendrait-il du fait que le create de TTables diffère de celui défini dans TRelation?

Compliquer les constructeurs quand même !

Utilise reintroduce en lieu et place de override ;)

Code:

---

1 2	constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);reintroduce;

---

Cela aura pour effet de pouvoir ajouter des paramètres à la déclaration de l'ancêtre.
Attention dans ce cas, ce que j'ai dis avant à Cl@udius tient toujours: Puisque les paramètres sont différents, tu ne peux plus faire:

Code:

---

1 2	inherited;

---

Tu es obligé d'appeler le Create explicitement:

Code:

---

1 2	inherited Create(AOwner);

---

sinon, Delphi se perd :P

Encore une fois, ca fonctionne!

Ca fait beaucoup de choses assimilées en peu de temps!
Donc reintroduce pour ajouter des paramètres.

Mais je ne comprends pas une chose.
Pourquoi ne puis-je pas faire :

Code:

---

constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);reintroduce;override;

---

Car si j'ai suivis :
- override permet de surcharger sans redéfinir les paramètre de la méthode
- reintroduce permet d'ajouter des paramères à une méthode tous en masquant les avertissements du compilateur informant qu'une méthode virtuelle précédemment déclarée est masquée.

EDIT :

J'ai vu sur certains posts, qu'il fallait mettre overload.
C'est donc ceci que je dois utiliser si je veux surcharger mon create?

Citation:

---

Envoyé par ero-sennin

J'ai vu sur certains posts, qu'il fallait mettre overload.
C'est donc ceci que je dois utilié si je veux en surcharger mon create?

---

Tu te mélanges un peu les pinceaux:
overload: permet de déclarer 2 fonctions avec des paramètres différents mais toujours accessibles
exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

TMaClasse = class private procedure MaProcedure(Param: double); virtual end;   TMaClasse2 = class(TMaClass) private procedure MaProcedure(Param: integer);overload; end;   procedure Machin; begin MaClasse2.MaProcedure(12.4); MaClasse2.MaProcedure(12); //Tu gardes la possibilité d'appeler la méthode de la classe ancêtre end;

---

reintroduce: permet de surcharger une méthode de l'ancêtre en modifiant les paramètres. Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

TMaClasse = class private procedure MaProcedure(Param: double); virtual end;   TMaClasse2 = class(TMaClass) private procedure MaProcedure(Param: integer);reintroduce; end;   procedure Machin; begin MaClasse2.MaProcedure(12); //Tu ne peux que appeler ce Create end;

---

Voila en gros sans les subtilités et j'espère que je ne me plante pas :P

Citation:

---

Envoyé par ero-senin

- reintroduce permet d'ajouter des paramères à une méthode tous en masquant les avertissements du compilateur informant qu'une méthode virtuelle précédemment déclarée est masquée.

---

Ca sert à plus qu'à ça ;)
En fait, si le compilo te dit ça, c'est que tu redéclares une méthode avec le même nom qu'un méthode virtuelle de l'ancêtre. Donc la méthode ancêtre est cachée. Tu n'y a plus accès. Alors qu'en la surchargeant (override, overload ou reintroduce) tu gardes la possibilité de faire un inherited.

OK!

En effet, je me perds un peu dans tout ca... :oops:

Je vais faire quelques tests simple comme tu as fais afin de bien cerner ces mots clés car c'est hyper important de bien comprendre les différences entre ces divers mots clés !

Merci d'avoir pris le temps de bien tout m'expliquer Pedro!

Allez, je vais faire mes quelques tests :king:

Citation:

---

Envoyé par ero-sennin

Allez, je vais faire mes quelques tests :king:

---

Si après tes tests, tu vois que je me suis planté, n'hésite pas à venir me corriger ;)
J'ai un doute surtout sur l'utilisation de inherited dans une méthode non-surchargée...