Ajout d'une propriété a un composantRésolu

Question

Bonjour,



J'aimerais ajouter au composant TstaticText une propri&#233;t&#233; ACTIVE (de type booulean qui prendrait la valeur True ou False).



Mais cela depasse un peu mes comp&#233;tences, dans la doc on me parle de surcharger etc. Je n'y comprend rien... 



Bref si on pouvait me donner un petit coup de main... Je suis sous D7



D'avance merci.

cs_Delphiprog · Accepted Answer

Il existe une solution simple à mettre en oeuvre, sans passer par la phase de création d'un composant, son install, etc. De plus, cette solution a le mérite de ne pas obliger à changer le type des composants employés. TStaticText = class (StdCtrls.TStaticText) private FActive: boolean; published property Active: boolean read FActive write FActive default False; end; Il te suffit d'insérer cette déclaration juste avant celle de la fiche qui utilise le composant. Ainsi, le remplacement sera effectué automatiquement par cette nouvelle déclaration. Extrait d'une unité contenant une fiche :

type
  TStaticText  = class(StdCtrls.TStaticText)
  private
    FActive: boolean;
  published
    property Active: boolean read FActive write FActive default False;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    StaticText1: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient. http://www.croix-rouge.fr/index/partner_campagne.html

cs_grandvizir · Answer

Surcharger ?? Je dirai d&#233;river:

type
  TMonControl =   class (TAnc&#232;tre) //le composant anc&#232;tre (d'o&#249; h&#233;ritage)
  private
    FActive : boolean  = false;
  public
  protected
  published
    property Active : boolean read FActive write FActive;
  end;

Utilise plut&#244;t la propri&#233;t&#233; Enabled.

Note: cet exercice est la base du d&#233;veloppement de composants. Je doute que tu saches le faire.

===========
Validez les r&#233;ponses si ok...

ViewVite : HTML

thonyboy · Answer

R&#233;ponse ultra rapide, mais comme tu t'en doute je ne sais pas le faire.



Et je n'arrive pas a mettre ceci dans mon appli.

Parceque je ne veux pas d&#233;velopper un nouveau composants qu'il me faudrait ensuite installer.

Je pensais mettre le code directement dans mon appli, mais peut etre n'est pas possible.



Ou alors o&#249; faut t'il que je le mette ton morceau de code ?

cs_grandvizir · Answer

Je sentais bien que tu n'&#233;tais pas fort en composant. Ce que je peux te dire est de regarder mon tutorial pour installer des composants (rubrique Outils&Liens &#224; gauche de l'&#233;cran). Pour comprendre les composants, va dans les rubriques de composants des codes sources... je ne pourrais pas expliquer les composants, ce serait bien trop long...

===========
Validez les r&#233;ponses si ok...

ViewVite : HTML

jmp77 · Answer

Ah te voici de retour je commencais a
m'inquieter delphiprog. Deja Bonne ann&#233;e a toi et toute ta famille. Et
encore une fois un superbe exemple tres instructif pour moi en tout cas. Je me posais cette question cet apres midi meme et hop la reponse ideale ici.



 Merci qui merci delphiprog.


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Delphiprog · Answer

Salut jmp77. Il faut toutefois mod&#233;rer les usages de cette technique et ne pas l'utiliser &#224; tout va. Si l'usage est limit&#233; &#224; une fiche, alors Ok. Si on veut utiliser ce composant red&#233;fini dans plusieurs fiches, alors il faudra se tourner vers des solutions plus "classiques".

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

JulioDelphi · Answer

A noter que avec le code de delphiprog, une fois le StaticText passé en True ou False : rien ne se passe :) la propriété change parfaitement mais aucune action ne se déroule. (logique ya pas de procedur liée a la propriété !) Si tu en veux une fait : ....

type
  TStaticText =   class (StdCtrls.TStaticText)
  private
    FActive: Boolean;
    procedure SetActive(Value: Boolean);
  published
    property Active: boolean read FActive write SetActive default False;
  end;

  TForm1  = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    StaticText1: TStaticText;

  private
    { Déclarations privées }

  public
    { Déclarations publiques }
  end;

implementation

{$R *.dfm}

Procedure StaticText1.SetActive(Value: Boolean); begin if Factive=Value then exit; // pour eviter de mettre "true" quand c deja "true" (idem avec false bien sur) FActive := Value; if FActive then // code si actif else // code si non actif end; { du begin } ... end. je viens de faire de tete mais je pense ne pas avoir fait d'erreurs (apres 5 relectures ...). Comme tu le comprends, a chaque chagement d'etat de ton StaticText, la procedure SetActive est executée. Si tu as plusieurs statictext... je pense qu'il faudrait declarer la procedure en PUBLIC et non PRIVATE, je pense :p ET comme le dit DelphiProg, tu peux toujours t'en remettre a la méthode classique de modif le compo pour faire le tiens a partir d'un TStaticText. Voila ! a+

cs_Delphiprog · Answer

Bien que cela ne soit pas une erreur fondamentale de d&#233;clarer la proc&#233;dure SetActive de port&#233;e "public" au lieu de "private", ce n'est pas une pratique normale. En effet, en la d&#233;clarant "public", elle devient alors visibles des autres unit&#233;s. Or, laisser l'acc&#232;s &#224; tout le monde peut se r&#233;v&#233;ler parfois dangereux .
Le fait d'avoir un ou plusieurs TStaticText ne change en rien les pratiques d&#233;crites ci-dessus (d&#233;claration de port&#233;e public ou private).
C'est &#231;a la programmation objet. Chaque objet est ind&#233;pendant et il ob&#233;it aux m&#233;thodes qui sont celles d&#233;crites par sa classe (ou ses anc&#234;tres s'il n'y a pas eu de surcharges). Ce qui signifie que tous les TStaticText figurant d&#233;pos&#233;s sur la fiche r&#233;agiront tous de la m&#234;me fa&#231;on quand on modifiera la valeur de l'un d'entre eux.

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

JulioDelphi · Answer

Merci pour ces infos (dont je manque cruellement : oui je n'ai pas les
bases de Delphi :p), donc meme si j'ai mis StaticText1.~ le StaticText2
aura aussi cette procedure ?

je te crois alors :)

cs_Delphiprog · Answer

L'application de ces belles th&#233;ories sous forme d'un code et du didacticiel qui va bien avec : modifiez vos composants sans modifier vos fiches

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

Ajout d'une propriété a un composant

10 réponses

Votre réponse