Form1 autocréée par un composant créé
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:
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:
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...>
