Probleme pour créer une class contenant un objet et une variable

Version imprimable

Bonjour et bonne année à tous :P,

J'ai créé une classe dérivé d'un Tpanel contenant un Timage.
Pour ca pas de souci.:mrgreen:
Mais des que j'ajoute une data (cf: ligne en rouge) à ma class celle-ci ne veux plus compiler et delphi me jete en me disant:
[Erreur] Unit1.pas(22): Le champ publié 'Info' n'est pas un type classe ou interface

voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Tmyclass = class(TPanel) Image: TImage; Info:Double; private public constructor Create(AOwner: TComponent); destructor Destroy; end; var Form1: TForm1; Compo: Tmyclass; implementation {$R *.dfm} { Tmyclass } constructor Tmyclass.Create(AOwner: TComponent); begin inherited; Image := TImage.Create(nil); with Image do begin Parent := Self; Visible := True; end; end;
pouvez vous me dire ce que je déclare mal ? :cry:

02/01/2010, 04h32
Andnotor

Déplace ta déclaration dans une des sections private, protected ou public.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
TMyClass = class(TPanel)
private
  fImage : TImage;
  fInfo : Double;
  procedure SetImage(Value: TImage);
published
  property Image : TImage read fImage write SetImage;
  property Info : Double read fInfo write fInfo;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;
 
var
  MyClass : TMyClass;
 
implementation
 
constructor TMyClass.Create(AOwner: TComponent); 
begin
  inherited;
  fImage := TImage.Create(Self);
  fImage.Parent := Self;
  fImage.Align := alClient;
 
  fInfo := 0;
end;
 
destructor TMyClass.Destroy;
begin
  fImage.Free;
  inherited;
end;
 
procedure TMyClass.SetImage(Value: TImage);
begin
  fImage.Assign(Value);
end;
 
initialization
  MyClass := TMyClass.Create;
 
finalization
  MyClass.Free;
 
end.

02/01/2010, 23h21
Dereck07

Ca marche nickel !
encore merci :ccool: