Discussion :

[avogadro]

bonjour,

mon code ne fonctionne pas :s

pourquoi??

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
/////////////FONCTION CREER IMAGES A LA VOLEE/////////////////
function CreerImage(position_left : integer = 0): integer;
var
   my_mur : timage;
begin
my_mur := timage.create(Form1);
        with my_mur do
             begin
               Parent := Form1;
               picture.LoadFromFile('inter_progra\mur.bmp');
               Visible := true;
               Left := position_left;
               AutoSize := true;
               OnDragOver := Form1.Image2DragOver;
               OnMouseDown := Form1.Image2MouseDown;
               OnEndDrag := Form1.Image2EndDrag;
             end;
end;
/////////////FIN FONCTION CREER IMAGES A LA VOLEE/////////////////

il dit qu'il ne peut pas charger l'image

[mat.M]

Parce que le chemin d'accès doit etre invalide
Il faut le nom du repertoire courant de l'exe+sous rep du fichier image

[avogadro]

il y a tout dans "inter_progra"

[anapurna]

salut

ou mais pour lui "inter_progra" n'est peut etre pas sous la racine de ton appli
en regle generale il est preferable d'indiquer le nom complet du chemin

@+ Phil

[denokan]

essaye de faire

Code :

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

1
2
 
picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'inter_progra\mur.bmp');