Bonsoir,

C'est possible une chose pareille ? La proc "Load" est appelée par un bête bouton qui passe le chemin d'un fichier codé en dur, et "img" est un bête TImage :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm1.Load(Filename: String);
var
  Picture: TPicture;
begin
  Picture := TPicture.Create;
  Picture.LoadFromFile(Filename);
  img.Picture.Assign(Picture); // fonctionne, image affichée
  Picture.Free
end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Load(Filename: String);
var
  Picture: TPicture;
begin
  Picture := TPicture.Create;
  Picture.LoadFromFile(Filename);
  with img do begin
    Picture.Assign(Picture); // ne fonctionne pas : rien d'affiché
  end;
  Picture.Free
end;
FPC 2.6.2 Laz 1.4

Merci,