Event OnMouseEnter dans TBitBtnRésolu

Question

Bonjour, 

Je ne comprend pas pourquoi la property OnMouseEnter n'est pas accesible dans le class TbitBtn alors qu'elle hérite de TControls.
J'ai trouvé des bouts de code qui surcharge la class Tbitbtn afin d'ajouter les évenements OnMouseEnter et OnMouseLeave. Mais cela me chagrine car dans la doc VCL, ci-dessous, la property est déclarée avec la visibilité protected donc visible par les class enfant !?


From Controls.pas 

property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
Unit: Controls 

Type: event 

Visibility: protected 

Member Of: TControl 



Pourquoi surchargé alors ??

^Merci pour vos réponse et bon Noël.

jderf · Accepted Answer

Oui, oui, accessible pour les class enfants mais pas visible. Je viens de me faire une petit test. Encore merci.

Bonne journée.

Francky23012301 · Answer

Salut

Simplement parce que TBitBtn hérite de TButton qui lui même n'admet pas cet évènement, qui lui même hérite de TButtonControl qui lui même n'admet pas cet évènement, qui lui même hérite de TWinControl qui lui même n'admet pas cet évènement.

Francky23012301 · Answer

Pour répondre clairement à ta question :
Protected signifie que cet évènement est accessible dans les classes enfants. Ceci dit accessible n'induit pas obligatoirement qu'il est déclaré dans ces dernières. Ainsi cet évènement est accessible depuis la classe TWinControl mais non déclaré : Bilan tu es obligé de surcharger la classe TBitBtn pour ajouter ces 2 évènements .

Bacterius · Answer

Dans ce cas-là, tu crée une unité séparée par exemple NewBitBtn.pas, et dedans, tu mets :
type
 TBitBtn = class(Controls.TBitBtn)
 published
  procedure OnMouseEnter;
  procedure OnMouseLeave;
 end;
N'oublie pas d'ajouter cette unité à la clause "uses" de ton application, après l'unité "Controls".

Cordialement, Bacterius !

jderf · Answer

Bonjour,

Merci pour vos réponses. Y'a visiblement un truc qui m'a échappé sur l'héritage. Pour moi une méthode déclarée protected dans une class parent était obligatoirement accessible dans toutes les class enfants.

A+

Bacterius · Answer

Elle est accessible, mais c'est à toi de la déclarer afin de la rendre visible, en la redéclarant en published.

Cordialement, Bacterius !

Event OnMouseEnter dans TBitBtn

6 réponses

Votre réponse

Discussions similaires