Discussion :

[Paounet]

Ici on m'a fourni le code ci-après pour que lorsque je pose mon composant X sur une feuille celle-ci change ses propriétés:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
---------------------------------------
Constructor TX.Create(Owner:TComponent);
Begin
  Inherited Create(Owner);
  If Owner is TForm then with TForm(Owner) Do Begin
//Mes propriétés..
  End;
//..... etc..
------------------------------------

Dans cette methode on ne peut ajouter de nouvelles propriétés sur ladite feuille.. J'ai pensé créer 1 nouveau Type avec mon compo du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Type
  TFeuille = class(TForm)
  private    { Déclarations privées }
//etc...
  protected  { Déclarations protégées }
  public     { Déclarations publiques }
    Constructor Create(Owner:Tcomponent);Override;
    Destructor Destroy;override;
  published  { Déclarations publiées }
      Property;
  end;
Type
  TX = class(TCustomPanel)
//........... etc
  end;
Constructor TX(Owner:TComponent);
Begin
  Inherited Create(Owner);
If Owner is TForm then with TForm(Owner) Do Begin //Ici

Comment appeler cette feuille pour qu'elle remplace la feuille autocréée.
c'est à dire que devient la ligne de codes < If Owner...>

[sjrd]

Merci de mettre des balises [ code ] autour de ton code. Comme ça c'est illisible.

Sinon, ce que tu cherches à faire est totalement impossible. Je n'aurais pas dû te donner la première solution, je crois que tu n'as pas compris la philosophie de création de composants.

Si tu veux créer une fiche personnalisée, utilise le référentiel d'objets de Delphi, il est prévu pour ça. Ne veuille pas modifier une fiche par un composant que l'on pose dessus.

[Paounet]

Ok Merci