bonjour,
mon code ne fonctionne pas :s
pourquoi??
il dit qu'il ne peut pas charger l'image
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/////////////////
Partager