Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aimerai ajouter la propriété d'un copyright à la création du composant PSD, voici le code que je pensais correct :

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
 
Type 
 
TAbout=String; 
 
Private                 { Déclarations privées } 
 
FAbout:TAbout;    
 
published  { Déclarations publiées } 
 
  Property About:TAbout read FAbout; 
 
Constructor TPsd.Create(Owner:TComponent); 
 
Begin 
 
  Inherited Create(Owner);FAbout:='® Fredy P ';

Mais cela ne fonctionne pas.

J'ai certainement oublié quelque chôse, si quelqu'un avait une idée, merci d'avance.

@+,

Cincap

[cincap]

Désolé de vous avoir dérangé, je cloture ce topic.

@+,

Cincap

[guillemouze]

pourquoi ne pas faire comme ca :

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
 
Type 
 
TAbout=String; 
 
Private                 { Déclarations privées } 
 
  function GetAbout:TAbout;    
 
published  { Déclarations publiées } 
 
  Property About:TAbout read GetAbout; 
 
function TPsd.GetAbout: TAbout; 
 
Begin 
  Result :='® Fredy P '; 
end;

tu peux peut etre passer la fonction en class function, mais je ne suis pas sur que la property l'y autorise

[cincap]

Bonjour à toutes et à tous,

@Guillemouze, merci d'avoir encore répondu au topic résolu.

La meilleure solution facile pour moi est ceci :

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
  private 
    { Déclarations privées } 
     FCopyright: string;
  protected 
    { Déclarations protégées } 
    
  published
    { Déclarations publiées } 
     property Copyright: string read FCopyright write FCopyright;  end; 

  procedure Register; 
  
  constructor TPSD.Create(AOwner: TComponent);
  begin
  FCopyright := '® Fredy P'; 
  inherited Create(AOwner);
  end;

@+,

Cincap