Discussion :

[Dereck07]

Bonjour et bonne année à tous ,

J'ai créé une classe dérivé d'un Tpanel contenant un Timage.
Pour ca pas de souci.
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 :

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

[Andnotor]

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

[Dr.Who]

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

[Dereck07]

Ca marche nickel !
encore merci