Salut à tous,

Voila j'ai fais un composant dérivé de TGraphicControl. Dans ce dernier l'object Canvas est protégé. Hors dans le composant TImage (Dérivé de TGraphicControl), le canvas est en public. Je voudrais donc savoir comment rendre public un objet protected.

J'ai cherché mais rien trouvé

Merci

A++

Salut !
Rien de plus simple:

TMyControl = class(TGraphicControl)
public
  property Canvas;
end;

Et voila !

  TCustomObject = class
  strict private
    procedure SPriv; virtual; abstract;
  private
    fX : integer;
    procedure Priv; virtual; abstract;
  strict protected
    procedure SProt; virtual; abstract;
  protected
    procedure Prot; virtual; abstract;
  public
    procedure Pub; virtual; abstract;
  published
    property X : integer read fX;
  end;

  TCOVarianteA = class(TCustomObject)
  protected
//    procedure SPriv; override; abstract;   --> impossible
    procedure Priv; override; abstract;
    property X; // --> Possible! O_o (d2007)
  public
    procedure SProt; override; abstract;
    procedure Prot; override; abstract;
  end;

Salut Florenth : Ben figure toi que sur un des mes composants ca ne fonctionne pas (c'est ce que j'avais fais).

  public
    Canvas:TCanvas;
end;

Dans le create j'ai été obligé de faire cela :

Canvas:=InHerited Canvas;

(Bon j'utilisant les TCollections aussi : il y a peut etre encore des trucs chelous qui se passe )

Merci f0xi pour tes explications : ca a éclairé mes lumières sur le sujet (C'est vrai que les abstract et virtual j'ai un peu de mal).

Attention Francky!

Canvas: TCanvas;

// là tu déclares une nouvelle variable qui porte le nom d'ue propriété protected de l'ancêtre, ça ne fait rien du tout si ce n'est t'empêcher d'accéder au "Canvas" de l'ancêtre (il faut alors faire inherited Canvas)

n'est PAS la même chose que

property Canvas;

// Là tu demandes de changer la portée de la propriété Canvas: elle passe de protected à public. Et c'est justement ce que tu souhaitais !

@ f0xi: comme quasi-personne n'utilise D2007 je déconseille l'emploi de ces futilités de déplacement de portée dans l'autre sens... et puis aussi l'emploi des portée "strict" qui, malgré qu'elles sont plus logiques dans leur comportement que les "non-strict" sont non compatibles avec D<2005