Discussion :

[Cpt Anderson]

Bonjour à tous,

voila le bout de code que j'ai fait: je veux simplement faire une proprieté de type TImage, mais j'ai l'erreur "type incompatible". Quelqu'un peut-il m'expliquer ? et en meme temps me donner une solution pour contourner le problème ?!

Merci

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
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  Protected
   FmonImage : TImage;
   Procedure SetImage(aPath: String);
  public
   Property monImage: TImage Read FmonImage Write SetImage;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.SetImage(aPath: String);
begin
end ;

[WolffN]

Timage est un objet et non pas un type classique integer ou autre

il faut donc que tu le crée et l'initialize sur le create de la Form

Fimage:=Timage.create(nil);

et que tu le detruise sur le destroy

Fimage.free;

il faut aussi modifier ta procedure qui doit prendre en parametre un Timage

[sjrd]

Ben pour moi c'est clair : tu déclare une propriété de type TImage, et tu lui donnes un accesseur - SetImage - qui attend une string. Pas étonnant qu'il te signale un type incompatible.

Tu dois déclarer SetImage comme ça :

Code :

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

procedure SetImage(Value : TImage);

[Cpt Anderson]

Merci à tous les deux. Je me coucherais moins bête ce soir