Discussion :

[John Fullspeed]

Bonjour,

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

Je fais donc

Code :

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

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

A l'execution j'obtiens un :

Impossible d'affecter TLabel à TLabel.

Ou est l'erreur?
John

[sjrd]

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

[John Fullspeed]

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

John

[sjrd]

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...

[John Fullspeed]

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

[Nono40]

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 :

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

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 :

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

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 :

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

  RegisterClass(TLabel);

[John Fullspeed]

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

[Nono40]

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

Normal assign ne fonctionne pas...

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.