[Delphi 7]TForm et nouvelles propriétés ?!!

PhP Messages postés 1774 Statut Membre -  
PhP Messages postés 1774 Statut Membre -
Bsr,

Voilà j'aimerais ajouter de nouvelles propriétés dans la section published à des classes dérivées de TForm et m'en servir comme des fenêtres de base pour mes développements. Evidemment je souhaites voir apparaître ces nouvelles propriétés dans l'inspecteur d'objet.

Si c'est possible, comment fait-on ?

Merci
@+

PhP    [Push the button,Don't push the
.         button,Trip the station,Change the channel]

1 réponse

  1. Amoureux3
     
    dans la partie déclarative de ton application ( voir en haut) :

    - maintener le bouton CTRL du clavier,
    - cliquer ensuite sur le mot TFORM

    le source de l'unité TFORM s'ouvrira, ajouter (Propriété, Méthodes..) puis compiler...

    bonne chance..

    [ Ton Doux Visage. ]
    1
    1. PhP Messages postés 1774 Statut Membre 606
       
      Bjr,

      Recompiler la VCL ?!!! j'y pense même pas ...

      Enfin après 2 jours de recherche intensive j'ai fini par trouvé une solution ;-)

      Voici une solution que j'ai testé et qui marche sur Delphi 7

      D'abord définir sa nouvelle fenêtre :

      Unité : UnitPhp

      unit UnitPhp;
      
      interface
      
      uses
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
        Dialogs;
      
      type
        TFormPhp = class(TForm)
        private
          { Déclarations privées }
          FPhp : String;
      
        public
          { Déclarations publiques }
      
        published
          property Php : string Read FPhp Write FPhp;
      
        end;
      
      var
        FormPhp: TFormPhp;
      
      implementation
      
      {$R *.dfm}
      
      end.


      L'enregistrer.

      Ensuite la référencer.


      unit UnitPhpReg;
      
      interface
      
      procedure Register;
      
      implementation
      
      uses designIntf, designEitors, UnitPhp;
      
      
      procedure Register;
      begin
        RegisterCustomModule(TFormPhp, TCustomModule);
      end;
      
      end.


      Avec des versions plus anciennes de Delphi, si l'unité designIntf n'est pas trouvée essayer en remplaçant uses designIntf, designEditors, par uses dsgnIntf,

      Ensuite créer un nouveau paquet de conception seulement et y ajouter l'unité UnitPhpReg.

      Compiler le paquet
      Installer le paquet
      Enregistrer le paquet

      Enfin installer l'unité UnitPhp dans le référentiel.

      Il suffit ensuite d'utiliser cette fenêtre à partir du référentiel en héritant de péréférence et miracle la propriété "Php" apparaît dans l'inspecteur d'objet !!!!

      Il semble qu'il existe une autre solution en utilisant les Wizards auxquels je n'ai rien compris ! Si quelqu'un a de la doc dessus ...
      Si possible un ex qui détail comment utiliser ce p... de
      IOTAFormWizard (et cie) de A à Z !

      Les Experts aussi peuvent servir mais je crois qu'ils sont absolètes

      @+

      PhP    [Push the button,Don't push the
      .         button,Trip the station,Change the channel]
      0