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

Fermé
PhP Messages postés 1770 Date d'inscription lundi 11 décembre 2000 Statut Membre Dernière intervention 23 décembre 2009 - 26 nov. 2003 à 22:19
PhP Messages postés 1770 Date d'inscription lundi 11 décembre 2000 Statut Membre Dernière intervention 23 décembre 2009 - 28 nov. 2003 à 16:16
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]
A voir également:

1 réponse

Utilisateur anonyme
27 nov. 2003 à 19:10
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
PhP Messages postés 1770 Date d'inscription lundi 11 décembre 2000 Statut Membre Dernière intervention 23 décembre 2009 606
28 nov. 2003 à 16:16
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