Bonjour à tous !
Je suis nouveau ici et j'aurais besoin de votre aide sur un problème

Voilà, j'ai une comboxbox qui comporte 3 valeurs, un bouton et une image vide.

Quand je change ma combobox, en fonction du texte, ça définit un chemin qui sera plus tard le chemin de mon image (en JPG)

Ensuite, quand je clique sur le bouton, je veux que le chemin que j'ai défini tout à l'heure soit appliqué à mon image.

Et c'est là que je bloque, je n'y arrive pas

Voici le source de mon programme :
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
48
49
50
51
52
53
54
unit editeur;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, TeeProcs, TeEngine, Chart, jpeg, ComCtrls,
  ToolWin, ActnMan, ActnColorMaps, ActnCtrls, Menus;
 
type
  Ts_editeur = class(TForm)
    Textures: TComboBox;
    Generer: TButton;
    Image1: TImage;
 
    procedure GenererClick(Sender: TObject);
    procedure TexturesChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  s_editeur: Ts_editeur;
  Chemin : string;
 
implementation
 
uses Aide, Apropos;
 
{$R *.dfm}
 
// Bouton générer --> génère la map
procedure Ts_editeur.GenererClick(Sender: TObject);
var
  Texture : string;
  Image2 : TPicture;
begin
  Image2 := LoadPicture (Chemin) ;
	Image1.Picture := Image2;
end;
 
// Change le chemin de la texture utilisée pour le terrain
procedure Ts_editeur.TexturesChange(Sender: TObject);
var
    Texture : String;
begin
Texture := Textures.Text;
if (Texture = 'Herbe')
then Chemin := 'textures/terrains/herbe.jpg';
end;
 
end.
Si quelqu'un pouvait m'aider à résoudre ce problème
Si c'est plus simple, je peux utiliser des bitmap

Merci d'avance !