Affichage de plusieurs images

Fermé
chayma ahmed Messages postés 1 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 18 avril 2013 - Modifié par chayma ahmed le 18/04/2013 à 17:31
rooky06 Messages postés 20 Date d'inscription samedi 5 octobre 2013 Statut Membre Dernière intervention 8 juin 2017 - 5 oct. 2013 à 23:20
Bonjour,

salut je suis debutant en delphi svp je veut faire affichage de plusieurs images(la méme image afficher 10 fois au plus) suite a un click sur une boutton comment ca merci d'avance
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i :=1 to 10 do

begin
Image1.Picture.LoadFromFile( 'g.bmp' );
end;
end;
end.
je fait ca mais ne marche pas

1 réponse

rooky06 Messages postés 20 Date d'inscription samedi 5 octobre 2013 Statut Membre Dernière intervention 8 juin 2017 4
5 oct. 2013 à 23:20
En gros, tu dois declarer, dans une boucle, un Timage que tu crees, auque tu affectes l image desiree et que tu positionnes là où tu le desires

Si il s agit de la meme image que tu repetes à intervales reguliers (image de 10*10)


MyBitmap : TBitmap;


...onclick...
var
y: Integer;

begin

y:=100;

MyBitmap := TBitmap.Create;
MyBitmap.LoadFromFile('Brick4.bmp');

for i:=1 to 10 do
Canvas.Draw(i*10, y, MyBitmap);


end;

au close du form tu liberes to image MyBitmap.Free

enfin j espere avoir ete clair mais rien n est mois sur...en tous les cas tu as une piste
0