Propriété d'un composantRésolu

Question

Bonjour,
J'aimerais savoir, lorsque l'on dérive un composant, (en l'occurence un TStringGrid pour mon cas) si l'on peut lui retirer un propriété qu'il aurait en natif ?
Par exemple je voudrais retirer le propriété "FixedRow"
Merci pour vos réponses

gebu34 · Accepted Answer

Tu as totalement raison,
je n'avais pas vus l'aspect rapidité (je vais même modifier mes autres composant,
celà fera plus propre)
Merci à toi Loda, et en plus celà fonctionne.....
Je me mets au clavier, pour finir ce composant
A+

f0xi · Answer

En  derivant un composants, les propriétés et methodes ne peuvent que passer de Protected a public ou published.
pour supprimer ou cacher une propriétés ou une methodes d'un objet il faut deriver sont ancetre.

<hr size="2" width="100%" />Croc (click me)

sylvunix · Answer

Bonjour f0xi,

C'est une question que je me suis déjà posée. 

Néanmoins je ne vois pas bien comment tu peux faire cela ! Pourrais-tu nous donner un exemple afin de nous éclairer ?

sylvunix

Francky23012301 · Answer

Salut


 


Sylvunix : Si Gebu34 veut que son composant ne contienne pas sa propriété "FixedRow", il suffit qu'il ne le "dérive" pas du DBGrid mais d'un composant "hiérarchiquement au-dessus" qui ne contient pas cette propriété.

Exemple de delphipage

unit LabelLien;




interface






uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;






type
  TTypeLien = (URL,MAIL);
  TLabelLien = class(TLabel)
  private
    { Déclarations privées }
    FAdresse:string;
    FTypeLien:TTypeLien;
  protected
    { Déclarations protégées }
    procedure Click; override;
  public
    { Déclarations publiques }
    constructor Create(AOwner:TComponent); override;
  published
    { Déclarations publiées }
    property Adresse:string read FAdresse write FAdresse nodefault;
    property TypeLien:TTypeLien read FTypeLien write FTypeLien default URL;
  end;






procedure Register;






implementation






constructor TLabelLien.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
Font.Color:=clBlue;
Font.Style:=[fsUnderline];
Cursor:=crHandPoint;
end;






procedure TLabelLien.Click;
var St:string;
begin
inherited;
case TypeLien of
URL: St:=FAdresse;
MAIL: St:='mailto:'+FAdresse;
end;
ShellExecute(GetDesktopWindow,'open',PChar(St),nil,nil,SW_SHOWNORMAL);
end;






procedure Register;
begin
RegisterComponents('Delphipage', [TLabelLien]);
end;






 

Si tu veux créer un composant de type TLabel qui ne contient pas la propriété TypeLien bien au lieu de dériver le composant que tu veux faire à partir de TLabelLien bien tu le feras à partir du TLabel.

Pas besoin de faire un exemple pour comprendre ca : n'est ce pas ??

cs_Loda · Answer

salut,

j'ajouterais que la pluspart des compos de a VCL dérive d'un TCustomXxx ou TBaseXxx qui n'as aucun proprité published. 

regarde dans forms.pas:
 TForm = class(TCustomForm)

c'est un bon exemple je pense.

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

gebu34 · Answer

Merci à tous pour ces réponses très éclairés.
Je vais de suite faire quelques essais en dérivant de TCustomGrid qui est la base..
A+

sylvunix · Answer

Gardez vos tomates pour plus tard ... 

Si tu crées un composant à partir de TLabel, tu perds la propriété TypeLien comme également tout ce qui est spécifique à TLabelLien. Mais si le reste t'intéresse, tu dois tout réécrire !

Merci de m'éclairer car j'envisable sérieusement de ressortir mon Microsoft Basic 80 ... 

A+

cs_Loda · Answer

@Sylvunix:

hello!

si je te comprend bien, tu voudrais dériver une class en ayant tout le code de celle si, mais en reduissant la visibilité d'un des champs / property.

Ceci n'est PAS possible. (la visibilité ne peut PAS être réduite. seulement augmenté. cela vient des concept de POO. Pas de Delphi)

MAIS, les class borland ont une class de base qui implement TOUT les comportement, mais qui ne publie RIEN. Donc dérive la et ne rend publique que ce que tu veux.

Une autre solution pour "supprimer" une methode d'une class (très moche et pas toujours valable) consite à faire un override qui ne fait rien (ie: qui n'appel pas le inherited et sans code)

si j'ai répondu à côté, re demande.

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

gebu34 · Answer

ReSalut,
Je vais voir du coté de l'override, mais ce n'est pas très élégant....
J'ai essayé de dérivé un TCustomGrid pour voir ces propriétés de base, mais très dépouillé, je n'est que Register et Destructor.
Le composant s'installe sans problème, mais si je le place sur une Form j'ai un message d'erreur "Erreur abstraite" (celle là je ne la connaissait pas) mais le composant se place quand même sur la Form, avec des propriétés très réduites. Celà me conviendrait pas mal et il suffirait de reproduire les propriétés que l'on désire (à voir dans les sources), mais ce qui me gêne, c'est le message d'erreur qui ce produit à chaque fois que l'on clique sur le composant.(Erreur abstraite)
A+

cs_Loda · Answer

@gebu34:



dsl pour l'incompréhension. je m'adressais à Sylvunix qui semble ne pas être satisfait des réponses fournies.

IMHO, dérivé un TCustomXxx est la meilleur solution pour ton problème.

Erreur abstraite : une methode abstrate de la class de base n'est pas implémenté dans la class descendante. (trouvable en 2sec dans l'aide de Delphi)

au cas ce n'est pas clair: tu n'as pas besoin de REPRODUIRE les proprieté. seulement de les mettre en published. Lit l'aide sur Published, protected, public et private.

bon code,

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Francky23012301 · Answer

Oh la je suis fatigué moi : je redis ca correctement

@Sylvinux : faut pas faire la tête, il n'y avait rien de méchant dans mes mots. J'ai juste souligné qu'il s'agit de créer classiquement un composant et que  la seule spécificité réside dans le choix de l'ancêtre : pas de quoi faire un tuto/exemple.

gebu34 · Answer

Merci pour toutes ces réponses....
Maintenant je me mets au clavier....
A+

sylvunix · Answer

Désolé de perturber la question initiale de gebu34 mais suite la réponse de f0xi m'inquiétait beaucoup dans le mesure où je pensais avoir manqué quelque chose sur le concepts des objets en Delphi.

Merci à toi Loda pour ces éclaircissements. Je n'avais jamais accroché sur le fait que toutes les classes de base de Borland ne publiaient rien.

sylvunix

sylvunix · Answer

Francky23012301,

Rassures-toi, je ne fais pas la tête ... J'essayais simplement de comprendre  !

Cette discussion a été très bénéfique ... pour moi ...

a+

ThWilliam · Answer

Salut gebu34.

En dérivant ton grid de TCustomGrid, l'erreur abstraite que tu rencontres vient de la procedure DrawCell qui est déclarée dans TCustomGrid mais non implémentée (comme l'a précisé Loda).
Tu dois donc la redéclarer dans la section protected de ton composant et puis l'implémenter.

TMyGrid = class(TCustomGrid)
protected
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

procedure TMyGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
begin
  // ton code de dessin des cellules
end;

A +
Thierry

ThWilliam · Answer

Une précision, mais elle est importante.
TCustomGrid ne "mémorise" pas le contenu d'une cellule (ce que fait TStringGrid : propriété Cells).
Tu vas donc devoir gérer cela.

gebu34 · Answer

Merci à toi ThWilliam,
Je me posais la question sur TCustomGrid, car je comptais le remplir via une base de données et j'en suis arrivé à ta conclusion qu'il ne mémorisait pas le contenu, ce qui est gênant. Je vais voir du coté d'un TStringGrid. Merci pour ton explication de l'erreur abstraite, ça je ne le savais malgrès mes recherche dans l'aide de delphi qui n'est pas très limpide....
A+

cs_Loda · Answer

re,

il existe des compos spéciaux pour les base de données! Vu que je ne m'en sert jamais, je ne peux pas d'en dire tellement plus. mais regarde genre TDBGrid. Ne reinvente pas la roue si tu peux l'éviter ;-)

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

gebu34 · Answer

Bonjour à tous,
Je reviens sur cette discussion très enrichissante, et la nuit portant conseil, je vais finalement dériver un TStringGrid qui m'apporte plus que TCustomGrid.
Mais je veux quand même masquer certaine propriétés.
Sur le fond j'ai bien compris les conseils de Loda (override) mais je bloque sur l'écriture.
Pour exemple je voudrais masquer la propriété FixedCols :
La variable et la procédure (SetFixedCols) sont déclarés dans TCustomGrid.
La "property FixedCols" est déclarée dans TDrawGrid (ancêtre directe).
Malgrès moulte recherche et essai je suis toujours dans le potage....
Je suis consciens qu'écrire une proc pour ne pas s'en servir n'est pas très sain.......
A+

gebu34 · Answer

Bonjour Loda,
Ma première intension était de partir sur un TDBGrid, mais en vérité je veux créer un composant ListBox multi colonnes ou je pourrait masquer la premièrere colonne, aligner le texte, changer la couleur suivant le texte.........La ListBox ne doit pas être reliée à une base de donnée, car elle me sert simplement de visuel pour recherche ou imprimer. Je la remplis en fonction d'unr requête SQL sur ma base.
A+

cs_Loda · Answer

salut,

l'override "vide", n'est qu'une solution de remplacement si tu ne peut pas dérivé la class de base. C'est une moche solution.

dans l'unit grids.pas:

1. recopy la déclaration de   "TDrawGrid = class(TCustomDrawGrid)" dans une unité à toi. (ajoute grids au uses)

2. renomme la (genre TgedDrawGrid)

3. commente les lignes que ne veux pas:
cad
    ....
    property FixedColor;
    property FixedCols;
    property RowCount;
    property FixedRows;
    ....

devient
    ....
    property FixedColor;
//    property FixedCols;
    property RowCount;
    property FixedRows;
    ....

voilà! c'est tout!

t'as un TDrawGrid sans la property FixedCols!

c'est clair maintenant j'éspère. :)

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

gebu34 · Answer

C'est très clair, merci à toi
c'est vrai qu'au niveau programmation ce n'est pas des plus professionnel.....
A+

cs_Loda · Answer

non, comme je l'avait dis en la proposant. c'est moche et pas toujours applicable. Mais ça dépanne des fois.

Si tu rencontres des problèmes, pose ta question ici.

bon code,

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

f0xi · Answer

en fait, la plupart des classes possede toujours (la plupart du temps) un ancetre nomé TCustomMachin.

quand on ecrit une classe TCustomMachin, seule les zone Private et Protected sont utilisée. la plupart des methodes sont abstraite (cad il n'y a que la declaration de la methode, pas l'implementation).

il suffit de regarder l'exemple TStrings et TStringList.

l'ancetre de TStringGrid est TDrawGrid qui est lui meme descendant de TCustomDrawGrid descendant de TCustomGrid.

FixedRows appartient a TCustomGrid soit 3 niveau plus haut que TStringGrid.
si on veux cacher cette propriétée, la seule solution est de rederiver chaque ancetres  jusqu'a  TStringGrid.
assurement ce serait assé fastidieux a faire. 

<hr size="2" width="100%" />Croc (click me)

cs_Delphiprog · Answer

L'héritage ? Pourquoi bien souvent en matière de POO on pense uniquement héritage ?
Seriez-vous des rentiers qui s'ignorent ? 

Et la composition dans tout cela ?

En reprenant les propos de Foxi ci-dessus, créez un descendant de TCustomGrid qui posséde, en interne un membre privé du type TStringGrid. Pour ce composant, ne publiez que les propriétés et méthodes que vous souhaitez. De toutes façons, ces méthodes ne feront que faire appel au vrai composant (TStringGrid) et puis c'est tout.
Les connaisseurs devraient reconnaitre là un pattern de base en POO : le pattern adptateur.

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

gebu34 · Answer

Je vois que le débat s'anime, il ne peut en sortir que quelque chose de constructif.
J'ai appliqué la méthode de Loda, dite méthode "moche", mais celà fonctionne.
Par contre, est_ce un effet perverse de la méthode, je voudrais utilisé la propriété
ColWidth[n] dans le composant que je crée. J'ai une erreur "Valeur non déclaré".
Si je pose mon composant sur une Form et que j'utilise ColWidth[n] dans le programme,
celà fonctionne.
Celà vient-il que ColWidth[n] soit une méthode virtuelle de TCustomGrid ?
A+

ThWilliam · Answer

Salut gebu34.

ColWidths est une propriété déclarée dans la section protected de TCustomGrid, donc accessible aux classes dérivées. Ton problème ne vient pas de là.

A +
Thierry

gebu34 · Answer

Salut à tous,
Effectivement ColWidths vient de TCustomGrid Protected Property.
Pour redessiner mon composant, j'utilise une méthode qui fonctionne très
bien pour d'autres composants (moins compliqués certe).
Je déclare la propriété Paint en override pour la surchager.
Dans une proc je définis ou passe mes variables et lance Invalidate pour
provoquer l'activation de Paint.
Dans Paint, j'exécute les actions nécessaires (dans mon cas ColWidths qui
prends une valeur 1 pour masquer la colonne ou DefaultWidth pour la voir.
J'ai tenté une foule de combinaisons sans succès.
Si une idée géniale surgit, je serais ravis....
A+

cs_Loda · Answer

attend, je suis pas sur de comprendre... tu modifie des prorités de ton composant DANS la méthode pain?!?

Dans ton setter, tu appel invalidate, c'est juste. Mais si tu dois modifier des valeurs liée à la propriétésque tu viens de changer, fait le dans le setter. pas dans le paint!

Le paint est appelé un nombre incalculable de fois, il doit être le plus rapide (et compact) possible. évite tout test/calcul inutile!

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Propriété d'un composant

29 réponses

Votre réponse

Discussions similaires