creation d'une variable dans un composant ?

:?:
Peut on ajouter une variable à un composant Tframe?
j'ai essayé comme suit mais ca ne marche pas .

type
TFrame1 = class(TFrame)
mavariable : word;
private
{ Déclarations privées }
public

{ Déclarations publiques }
end;

Tu peux utiliser la propriété TAG si tu ne l'as pas déjà utilisé...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ... var MaFrame : Tframe; MaVariable : Word; begin ... MaFrame.Tag:=MaVariable; ...

Bonjour, je n'ai pas delphi sous la main tout de suite.

as tu essayé comme ceci ?

Code:

1
2
3
4
5
6
7
8
9
type 
TFrame1 = class(TFrame) 
 
private 
{ Déclarations privées } 
public 
 
mavariable : word; 
end;

sinon il reste la manière propriété

Code:

1
2
3
4
5
6
7
8
9
10
type 
TFrame1 = class(TFrame) 
 
private 
fMavariable : word; 
procedure Setmavariable(Value : word); 
public 
property MaVariable : word read fMavariable write SetMavaiable;
mavariable : word; 
end;

merci pour le conseil, j'essaie de suite
Citation:
Envoyé par bjl
Bonjour, je n'ai pas delphi sous la main tout de suite.

as tu essayé comme ceci ?
Code:

1 2 3 4 5 6 7 8 9 type TFrame1 = class(TFrame) private { Déclarations privées } public mavariable : word; end;
sinon il reste la manière propriété
Code:

1 2 3 4 5 6 7 8 9 10 type TFrame1 = class(TFrame) private fMavariable : word; procedure Setmavariable(Value : word); public property MaVariable : word read fMavariable write SetMavaiable; mavariable : word; end;

Au choix:
Code:

1 2 3 4 5 6 7 8 9 MaFrame = class(TFrame) private MaVariable:xx; //Accessible que dans l'unite courante public MaVariable:xxx; //Ce que tu cherchais je suppose; published property MaVariable: string read fMaVariable write fMavariable; //Demande un "getter" et "setter" end;
Ce que tu met en dessous du type est de type publique mais est considere comme un objet, donc les variables ne sont pas a declarer ici mais sous le nom publique.
Au passage, property n'est pas necessaire en publique.