Duplication objet

Bonjour,

J'essaye de creer une table de label à partir d'un label present sur ma forme

Je fais donc

Code:

---

1 2	MonLabel:=Tlabel.Create(self); MonLabel.Assign(Label1);

---

A l'execution j'obtiens un :

Citation:

---

Impossible d'affecter TLabel à TLabel.

---

Ou est l'erreur?
John

T'es sûr que Label1 est bien défini ?

Label1 est fabrique sous l'diteur afin de ui donnez le cracteristiques generales:
Font, color,visible,transparent....
Il apparait parfaitement à l'écran

John

Les deux labels font bien partie du même module (EXE tous les deux ou DLL tous les deux mais pas un l'EXE et l'autre une DLL) ?
Si c'est le cas alors je vois vraiment pas. C'est très étrange...

Et oui c'est très étrange:

Je suis dans le cretate de la form et visiblement cela coince quelque part parce que j'ai essayé des vatiante et rien ne marche:

Deus labels posés dans la fiche. Un Assign de l'un sur l'autre : rien
Creation d'un label à la main , posituionnement des proprietés et imposible de voir le lpabel à l'écran

John

Non, assign ne fonctionne pas dans ce cas. Tu ne peut pas copier un composant de la sorte. Il existe des possibilités plus complexes en utilisant les reader/writer de Delphi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function CreationCopie(Component:TControl):TControl; var Stream:TMemoryStream; begin Stream :=TMemoryStream.Create; try Stream.WriteComponent(Component); Stream.Seek(0,soFromBeginning); Result := TControl(Stream.ReadComponent(nil)); Result.Parent := Component.Parent; finally Stream.Free end; end;

---

Cette fonction s'utilise de la sorte :

Code:

---

1 2 3 4 5

Var lab:TLabel; begin Lab:=TLabel(CreationCopie(Label1)); Lab.Top := Lab.Top+20; end;

---

Pour que ça fonctionne il faut mettre dans le OnCreate de la fiche :

Code:

---

RegisterClass(TLabel);

---

Merci bien

C'est trange que cela ne soit expliqué nulle part.
J'ai essayé avec des Statictext et le résultat est identique.
A-t-on l'explication ou est-ce simplement l'expérience qui parle?

De toute façon j'essaye de suite.


John

Citation:

---

Envoyé par John Fullspeed

Deus labels posés dans la fiche. Un Assign de l'un sur l'autre : rien

---

Normal assign ne fonctionne pas...

Citation:

---

Envoyé par John Fullspeed

Creation d'un label à la main , posituionnement des proprietés et imposible de voir le lpabel à l'écran

---

Simple oubli de la propriété Parent du label.